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CONTACTING FIELD SUPPORT 


The following Is our policy and procedure on supporting customers who iave 
bought MCBA packages on a no-hand-holding basis and who are currently under 
warranty or on Software Subscription Service directly with MC§A. (End Users 
who have purchased their MCBA software from an MCBA OEM should contact their 
OEM for support.) 

If any problem or question arises concerning any aspect of the package or its 
operation, contact the Field Support department either by letter, phone, or 
telex (#194188>» We will endeavor to answer your questions as quickly and as 
thoroughly as possible. 

When you phone MCBA for assistance or advice, please Identify yourself (name 
and company name), indicate the type of system (ha ^ lare manufacturer), 
language and appMcation package you are using, antf^^^k to be connected with 
the proper FieId "Support representative. 

A Software Performance Report (SPR) is provided on the following pages for the 
purpose of evaluating our software should you care to make a recommendation or 
find a bug. Please be as comprehensive as possible in submitting an SPR. 

If a bug is reported in one of our packages, our procedure is: 1) duplicate 
the situation at MCBA on our own disk; 2) fix the bug; 3) send out a patch 
to all customers who have the particular system. If the problem is critical 
for the customer reporting the bug and he needs it fixed right away, someone 
in Field Support will give him the data over the phone as quickly as possible. 

Since we are constantly checking to find ways to improve the quality of our 
products, we appreciate any suggestions or reports from our customers. 

We will endeavor to help in any way we can to answer a customer's questions or 
fix any problem that arises in the use of our packages. Please do contact 
Field Support if you need some assistance. 







Michael J. Moore 
Field Support Manager 


4. Problenn Description 


Whet wes the exact sequence of actions leading up to the failure; 

e) _____ 

b) ____ 

c) ____ 

d) ___ 

€)___ 2 _ 

f) ___ 

c) ____ 

h) ___ 

Whet phese cf operetion wes the progrerr in?_ 

Hee this prccrerr run successfully before? _ yes/nc _ 

If sc, have there been any recent changes in th^^rocrems, the Hercwcrc, 
Systerr Software, or Operating Procedures? __ 

(describe any changes) ^ ___ 


Applicable f-‘CEA dccurentaticn (please note pace nurbrrs) 


Any other date that rray help isolate the problem: 


Has it now beer fixed? 


yes/nc 


Hew; 


. fi ll 
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Software Description 
1/1/77 


Package: ACCOUNTS PAYABLE 

System capabilities: 

1. This is an accrual system. .. ■ 

2. Has complete Vendor file maintenance: add* change, delete and 
list. 

The vendor record contains: vendor If, name, 2 street address 
tines, city, state, zip, total S billed and i vouchers year-to- 
date. 

3. Allows interactive entry and editing of New Payables (includes 
Oedits and Prepaids). 

A "voucher iP* ts automatically assigned to each invoice entered. 

The data eatered. is: vendor # (with autdi^tic verification and 
display of vendor name), invoice H and1|||^eMone invoice to a 
voucher). Invoice amount, discount percent or amount (if 
applicable), and due date 
date are also entered. 

The distribution of the i 
entered. Oietribution may be against up 1*0 nine G/L accounts for 
each voucher. G/L account #s are Interactively verified and the 
account descrtprion displayed bn the CRT. The full invoice amount 
must be dlstrihuted. 

4. Prints the "Accounts Payable Voucher Register" showing the data 
entered in step- 2 above, with totals. 

5. Prints the ’Vtecounts Payable Aged Trial Balance" on request, 
either for all vendors or for selected vendors. Aging is by 
invoice date. At the operator's option, the detail within each 
vendor may be suppressed, thereby showing only the summary aged 
subtotals for each vendor. 

6. Prints the "Cash Requirements Report" on request for the specified 
due date. This report shows ail items due (by vendor), plus any 

discounts valid or lost on the specified payment date. 

7. Payment of open items may be by either Deferral or Selection, in 
the deferral method, all items prior to the specified due date - 
except those spec!ficalIy ^deferred are paid. Deferral may be 
an entire vendor, or for Selected vouchers within a vendor, 
selection method, only those items specifically selected are 
Partial payments may be made in either method. 

8. Prints the "Pre-Check Writing Report" showing vouchers (by vendor) 
that are to be paid. Adjustments may be made prior to check 
writing. 



. For pre-paide. the check § and check 


nvoice to the^neral Ledger must also be 




MC8A Software Description 
1/1/77 


A/r - page z 


9. a Prints Accounts Payable checks using stub-over-check format. Uses 

pre-numberad checks. The starting check # and check date must be 
entered thru the CRT. R*ovlsians are made for restarting check 
printing from any specified point if necessary. 

10. Prints the "Accounts Payable Check Register" (Cash Oi^ura^ent 
Journal) showing details of vouchers paid (by vendor) on each 
check. Any prepaids entered since the last (^eck Register are also 
automatically shown on this report. 

11. Prints the monthly "Accounts Payable/General Ledger Distribution 
Cross Reference" showing G/L distribution (by account #) of all 
new payables entered for the month ended. At the operator's 
option, the detail within each account may be suppressed, thereby 
showing only the total amount distributed to each G/L account. 

12. Prints the "Vendor Analysis Report" on request, showing the total 
S billed, the number of vouchers (one invoice per voucher) and 
the average voucher amount for each vendor year-to-date. 

13. At the User's option, the system may ba^lp^atIca11 y interfaced 
to the General Ledger at month end. ’ ^ 


14. Other miscellaneous support programs*, 


'** 1 ^ 


Approximate record sizes: 


Vendor record 

A/P Open record 
New Payables record 
G/L Distribution record 


128 characters 

(includes Index overhead) 
54 characters 
222 characters 
42 characters 
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Date; 25-APR~79 , Rev. 28-AUG-79, Rev. 1-OCT-79 

INSTALLATION 


Version; DIBOL - 11 Disk 


NOTES 


System; 


SYSTEMS 


GENERAL INSTALLATION NOTES \ 

There are no DEC System programs on the MCBA distribution disk. Per 
step 2 below, you will need to supply your own disk with the DEC System 
programs on it in order to build the system(s). 


1. Make a copy of the MCBA distribution disk. Since there is no copy 
program on the MCBA disk, this copy will have to be done by mounting 
a disk with a copy program ("DUP" or "PIP”), running the copy 
program, removing the disk if necessary, and copying the MCBA disk. 

After the back-up is done, remove both disks and put the back-up 
aside. 


2. Label an RK05 disk "MCBA Generation Disk"^ This disk should have 
the directory expanded to a minimum of V!l^^!8SP*6nts (using DUP, 
option /Z/B/N;22). For large disks (such as RK06, RK07, RL01, etc) 
it is recommended that the directory bei,.^4tial i zed to 31 segments. 
This disk should contain; * 


SWAP.SYS 

RKMNSJ.SYS 

TT.SYS 

LP.SYS 

BA.SYS 

PIP.SAV 

DIR.SAV 

DUP.SAV 

LINK.SAV 

EDIT.SAV 

BATCH.SAV 

LIBR.SAV 


(or appropriate monitor file for RT-11 version 3B) 


(or appropriate editor) 


a) If the system is to be built using DEC'S business operating 
system (CTS-300) Instead of the MCBA supplied DBL system, the 
disk should also contain; 

DICOMP.SAV 
DIBOL.OBJ 
TDIBOL.OBJ 
TSD.SAV 
RTEXIT.TSD 


The TSD.SAV program should be one which has been sysgened f^|L||our 
machine, and one in which the following values were specifi^lF 

- Number programs-to run = Number of terminals 

- Standard size terminal buffer = N (input = 72 4 output = 72) 

- Number of messages in memory * 1 per terminal 


2.1 



Date: 25-APR-79, Rev 28-AUG-79, Rev 7-N0V-79 


Version; 


INSTALLATION NOTES 
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DIBOL - 11 Disk 


System; ALL SYSTEMS 


GENERAL INSTALLATION NOTES 


- Number channels open per program = 10 

- Lock USR In core = Y 

- DDT = N 

b) If the system is to be built using DBL and DBL is not on the 
MCBA distribution disk being used, the disk just mounted should 
a I so contai n: 

DBL.SAV SDBL.REL 

DLIB.OBJ DBLERR.SAV 


c) 


If the system is being built under TSX and will be built for 
mu I ti-termi nal DBL, the disk should j^-SO contain: 


TDBL.REL 

TSGO.SAV 


TSX.REL 

DBLERR.SAV 


The file TSX.REL should be built per 
and TSX System Generation Manual. 



e DBL Reference Manual 


d) If the system is being buiIt under TSX and will be bui It for 
mu Iti“terminal DIBOL, the disk should also contain; 


TSGO.SAV 

TSX.REL 


The file TSX.REL should be built per the TSX System Generation 
Manual. 


CAUTION; 


If DIBOL programs compiled with DICOMP are to be run under TSX, 
ENVRN must be edited to return a value of 1 in SYSTEM. 

(SYSTEM = 1) See MCBA's Utility Manual for additional data. 

3. Mount and boot the "MCBA (Jeneration Disk". 

4. Next, mount the MCBA Distribution disk and copy all the files 
onto the "MCBA (Jeneration Disk". This is done using PIP with 
the wild card option. 

Verify that the "MCBA (Seneration Disk" has at least 1500 to 
2200 free blocks. The larger size may be needed for an MCBA 
system build fdr t|p vertical packages (CWU, PTB, etc.). If 
this space is not available, files unnecessary in completing 
the buiid must be deleted. 
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INSTALLATION NOTES 


VERSION: DIBOL - 11 DISK 


SYSTEM: ALL SYSTEMS 


GENERAL INSTALLATION NOTES 


5. Remove the MCBA distribution disk. The "MCBA Generation Disk" now 
contains all the files and programs necessary to build the 
system(s) per the Installation Notes for the specific system(s) 
which are on the following pages. 

6 . For your convenience, a list batch has been provided to faciiitate 
the listing of your source programs to the iine printer (device 
"LP;"). 


Define the input device by typing; 
ASS dev DK 




where dev is the device where the sour|^^l^pgrams are 


Set up the batch by typing; 




located. 


ASS LP LOG 

LOA LP,BA,RK (or appropriate device headers) 

To run, type; 

.R Batch 
»LiSTXX.XX 


where )(X is the package name (i.e. AP, (3L). 
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INSTALLATION NOTES 

Version: DIBOL - 11 Disk System: ^ Release: 5 


1. Perform steps 1-5 of the "General Installation Notes". 

2. Label a formatted scratch disk: "Accounts Payable Master" and 
mount it on another drive. This disk must be pre-formatted and 
Initialized with the same directory size as the "MCBA Generation 
Disk". 

3. Define the devices for the build procedure's Input and output. 

Type .ASS dev IN 

where "dev" is the physical device containing the "MCBA Generation 
Disk" 


and .ASS dev OUT 

where "dev" Is the physical device containing the "Accounts 
Payable Master". 

If the build procedure Is being run jUWer TSX, go to step 4. Set 
up batch by typing: 

.ASS LP LOG 

.LOA LP,BA,RK (or appropriate devlcf^handlers) 

4. If the Accounts Payable programs are to be put on a disk con¬ 
taining another MCBA system or other files, go to step #5. 


If you wish to transfer the operating system programs onto the 
"Accounts Payable Master", type the following for the appropriate 
run-time system: (Edit the batch or command to contain the 
appropriate monitor.) 


CTS-300 
Version 5 

.R BATCH 
•VS5SYS.UT 


Single User 
DBL 

.R BATCH 
»DBLSYS.UT 


Multi User 
DBL 

.eTS)(SYS.UT 


Single User 
DIBOL 

.R BATCH 
*V3BSYS.UT 


Multi User 
DIBOL 

.8DIBSYS.UT 


This will transfer the operating system files. 


5. 


Next, all the programs must be complied and linked. To do 
type the following for the appropriate run-time system: 


CTS-300 DBL DBL DIBOL 

Versions (Rf-l<i«ATCH) (TSX Command FI Ie) 



.R BATCH 
•VS5BLD.AP 


.R BATCH 
"DBLBLD.AP 


.iTSXBLD.AP 


.R BATCH 
»V3BBLD.AP 


2.3 
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INSTALLATION NOTES 


Version: DIBOL - 11 Disk System: ^ Release: 5 


If the user has version 7 or later of TSX and is running TSX under 
RT-11V3B, the first section of TS>©LD dealing with compiling, 
linking and running GSORT may produce not enough memory errors due 
to the size of GSORT, RT11V3B, and the user's TSGEN parameters. If 
this occurs, the batch, DBLBLD (or portion thereof) may be used 
Instead of TS)©LD as DBLBLD and TS)©LD produce exactly the same 
results. 

The build procedure will create the run-time programs on the device 
specified for "OUT" In step #3 above. It takes 30-60 minutes. 

6. Remove both disks. Mount the "Accounts Payable Master" disk where 
It will be when running production and boot It. 

If any data files are to be assigned taJ^ther drive (as In step 
#7 below), mount the appropriate disk <^^hat drive. If used, 
this disk must be preformatted and have’*’S directory. It may 
already have files on It - these fll^.a»11l not be deleted by the 
procedures which follow. 

7. As supplied, all Accounts Payable files are assigned to RK0. 

To change these assignments, edit thf control file "DEVICE.DDF". 

For example, to assign the Vendor lifeifSter file to RK1, locate the 
following record In "DEVICE.DDF": 

RK0:VENMAS0 and change it to RK1:VENMAS0. 

(The "0" at the end of the file name (as In "VENMAS0) Is the file 
status field used by the "FILES" subroutine. Do not change the 
zero. See the separate notes about the "FILES" subroutine for 
more details about this.) 

In the above example, you would probably also assign the Index to 
the Vendor Master file ("VENIDX") to RK1 so that both files would 
be on the same device. 

8. RUN INITAP 

This Initializes the Accounts Payable files. As requested, enter 
the number of records to allow for each file. 

INITAP will replace any files already existing under the file 
names It uses to create the files. To allow an existing file “illll 
remain without be I ng ,r(Bp I aced, specify a record count of 0 (zenof 
for that file whqo rsMjjuested In INITAP. This will cause INITAP to 
skip creating that fife. INITAP will ask questions regarding the 
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INSTALLATION NOTES g 

Version; DIBOL - 11 Disk System: ^ Release: ^ 

^ A/P to G/L Interface per Video Display Sheet VTAP1 , p. 2. If It 

Is desired to Interface the A/P system to the General Ledger 
System, then enter the maximum number of Expense Accounts ever 
expected to be used In the A/P system. The A/P to G/L Interface 
will then be created to handle this many different expense 
accounts (see FDAP8). 

If a new Vendor Master file Is not to be created, but It Is 
desired to create the A/P to G/L Interface file, proceed as 
fo11ows: 

A) Specify zero records for all files on the first screen. 

B) Answer *'Y” to Interface questions. 

C) Specify the number of records to for the G/L Interface 

file. * V 

This program may take several mlnutesij^:fun, depending on the 
number of records you have specified fw the files. 

NOTE: 

Due to the I/O characteristics of tiiji^^lBOL-l 1, the following Is 
the minimum number of records that ifeuld be specified for each 
file: 


Vendor Master 64 
Expense Accounts 14 
New Payable Transaction 3 
New G/L Distribution Trx 14 
G/L Distribution 14 
A/P Open I tern 11 


Partial Payments Transaction 11 

9. Edit the file "CONAME.DDF”. This file contains two records. The 
first record can be up to 50 characters long and contains the 
company name to print on the reports. Put the company name you 
want In this first record. Center the company name In the 50 
characters by padding with spaces on the left. (It Is not neces¬ 
sary to pad the right with spaces.) 

The company name may be changed at any time per the above. 

The second record of t{» "CONAME.DDF” file Is one character lon^ 
This charactW Is us^/to Identify the type of printer on the sys¬ 
tem (line or character printer). "L” means It is a line printer. 


2.5 
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INSTALLATION NOTES 

Version: DIBOL - 11 Disk System: ^ Release; ^ 

r 

\ Any other character means it is a character printer. Failure to 

set this single character to "L” If you have a line printer will 
cause the line printer to run at less than maximum speed. 

10. All Accounts Payable programs are now ready to run. 

(Start by building the Vendor Master File.) 


4 




4 
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INSTALLATION NOTES 


Version: DIBOL - 11 Disk 


System: AM Basic Accounting Systems 


ADDITIONAL NOTES ABOUT THE DIBOL-11 PACKAGES 


Standard Compilation 

Unless otherwise indicated on the source listing, all programs through¬ 
out the standard accounting packages are compiled for CTS-300 as 
follows: 

.RUN DICOMP 

*pgmnam = pgmnam.ext/0 

No additional source modules are necessary. The ”ext” is the system 
specifier (AR, OE, AP, GL, AD, etc.). 

For DBL, the standard compilation is: 

.RUN DBL ^ 

*pgmnam = pgmnam.ext 

Standard Linkage 

Unless otherwise indicated on the source listing, all programs through¬ 
out the standard accounting packages arar,Ji;|.tnked for CTS-300 as follows: 

.RUN LINK 

*pgmnam.TSD = pgmnam, UTIL, 

(See note about "UTIL” below.) 

For DBL, the standard linkage is; 

.RUN LINK 

*pgmnam = pgmnam, UTIL, DLIB 
"UTIL” - the External Subroutine Library 

"UTIL" (standing for "Utilities") is the external subroutine library 
which contains the object (compiled) versions of the following 
programs: 

ALGND, ANYCN, ANYC2, DSPLY, ENVRN, FILES, INPUT, INPT2, 

MESAG, MMEN2, MMENU, MOUNT, PGMND, PRINT, RDATE, RDYPR, 

SERCH, SRCH2, STENO, TERID, TMENU, TMEN2, and WAIT. 

Some MCBA systems may not use all of these programs. 

These subroutines-^^ all compiled and entered into the "UTIL" library 
using the RT-11 "LIBR" command. 
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INSTALLATION NOTES 


Version: DIBOL - 11 Disk 


System: All Basic Accounting Systems 


Standard linkage of all programs includes the "UTIL” external subrou¬ 
tine library. 

Refer to the source listing of each routine for detailed documentation. 
"DEVICE” - the Physical Device Assignment Table 

"DEVICE.DDF" is the disk resident table which is used by alI programs 
in the standard accounting packages to determine the physical device 
location of any given file. 

"DEVICE.DDF" is structured as follows: 

There are 90 eleven character records in the file. The first 10 re¬ 
cords are for the Accounts Receivable system, the next 10 for the 
Accounts Payable system, the next 10 for Payr^I, the next 10 for 
General Ledger, the next 10 for Order Entry^^ I inventory Control, the next 
10 are for Time and Billing, and the last 10 are for Assets and 
Depreciation. 

There is a fixed correspondence between the records in "DEVICE" and the 
data files used throughout the standard acccounting packages. For 
instance, the first record in "DEVICE",f^pys corresponds to the 
Customer Master file. The eleventh r$|^®‘1n "DEVICE" always 
corresponds to the Vendor Master fI le.?p^ ^ ||twenty-f irst record always 
corresponds to the Employee Master file,’]^^i (For an exact list of the 
fixed position within "DEVICE" of eachf'Ttl^, see the listing of the 
"DEVICE" file.) 

If one particular system (such as Accounts Receivable) does not use 10 
different files, all 10 records allocated to that system within the 
"DEVICE" table are reserved for that system anyway. 

Each of the 90 records within "DEVICE" has the following layout: 

RECORD DEVICE 
PHYDEV ,A4 
FILNAM ,A6 
STATUS ,D1 

"PHYDEV" is the name of the physical device, such as "RK0:". 

"FILNAM" is the name of the file, such as "CUSMAS". (The extension 
".DDF" is always assumed.) 


"STATUS" is a fift^d reflecting the status of the file as controlled by 
the "FILES" subroi^ne. (See the source listing of the "FILES" 
subroutine for more information about the field.) 
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INSTALLATION NOTES 


Version: DIBOL - 11 Disk 


System: All Basic Accounting Systems 


"DEVICE” Is normally accessed by the "FILES” subroutine (see the notes 
below), but may be accessed directly at the programmmer’s option. 

"FILES” - the File Protection Subroutine 

Throughout the standard accounting packages, all files are OPENed, 
CLOSEd and protected via the external subroutine "FILES”. 

Exact use of the routine Is detailed on the source listing (of the 
"FILES” subroutine). Also refer to the use of "XCALL FILES ...” 
throughout the source code of almost all programs for many examples. 

Briefly, here’s how "FILES” works: 


"FILES" accesses the disk resident device assignment table called 
"DEVICE.DDF". (See the above notes about "ttte "DEVICE” table.) 




Depending on the’^ption specified by the programmer, "FILES" attempts 
to either (1) open, (2) open and protect, (3) protect (with no open or 
close), (4) close and unprotect or (5) open without changing the 
status. 


Depending on the status of the file bi^|^®|)rocessed, "FILES" is either 
successful or unsuccessful at executing option it attempts to 
perform, and rations a parameter indlcatf^’^whether or not it has been 
successfuI . 


If "FILES" is successful, the program simply proceeds. If "FILES" Is 
not successful, certain messages are displayed on the CRT and the User 
has several options, depending on the specific application. 

"FILES" can get confused if the User aborts a program (with CTRL/C) or 
if a program aborts because of a fatal error. Basically what happens 
in such a case Is that the status of certain files is left "In use" or 
"protected" and never gets reset automatically as It would have had the 
program continued to Its natural completion. The solution for this is 
as follows: 


1. Exit TSD (if It Is being used) 

2. Run CLRFIL (In Single Job Monitor) 

(This clears the status of all files In the "DEVICE" 
assignment table.) 

3. Re-enter TSD (if it is being used) 

"FILE FULL” message 




If and when the User exceeds the file capacities e^abl Ij^ed at the 
time the system Is installed, a "FILE FULL" messag«™'jh^mppear on the 
CRT. * ^ 
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INSTALLATION NOTES 


Version; DIBOL - 11 Disk 


Systen; All Basic Accounting Systems 


To expand the size of the file exceeded without altering the data in 
the file, do the following; 

1. Exit TSD (if it is being used) 

2. Run XPAND 

(When requested on the O^T, specify the file name and the new 
file size.) 

3. Re-enter TSD and continue (if it is being used) 

"XPAND” will automatically expand the file's Index, if there is one. 


"DELETED RECORDS MUST BE PURGED" message 

No special attention is required. Hit a CR and the deleted records 
will be physically removed from the file. If the records are to be 
deleted, re-select the file maintenance and continue. 
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Version; DIBOL - 11 Disk System; All Basic Accounting Systems 

The following list is a description of the Device Table (DEVICE.DDF) In 
use. 


Record # 

File Name 

System 

File Description 

1 

CUSMAS 

AR 

Customer Master File 

2 

CUSIDX 

AR 

Customer Master Index 

3 

AROPEN 

AR 

A/R Open Items 

4 

SALES 

AR 

Sales File 

5 

MONSLS 

AR 

Monthly Sales Summary 

6 

CASH 

AR 

Cash File 

7 

MONCSH 

AR 

Monthly Cash Summary 

8 

TMPIDX 

AR 

Temporary Index 

9 

SA1NDX 

AR 

Analysis Index (temporary) 

10 

PURIDX 

AR 

I^^|h|R 0PEN Index (temporary) 

11 

VENMAS 

AP 

V^^P^ Master File 

12 

VENIDX 

. AP 

Vendor Master 1ndex 

13 

EXPACT 

AP 

Expense Account Deer IptIon File 

14 

NEWAP 

AP 

New AP Items 

15 

NEWGLD 

AP 

New GL Distribution File 

16 

GLDIST 

AP 

GL Distribution File 

17 

APOPEN 

AP 

AP Open Item File 

18 

TVNIDX 

AP 

Temporary Vendor Index 

19 

PRTIAL 

AP 

Partial Payments Transaction Work File 

20 

APTOGL 

AP 

AP to GL Interface File 

21 

EMPMAS 

PR 

Employee Master fM^i 

22 

EMPIDX 

PR 

.t-.j 

Employee lndeji^W||^'^ 

23 

PAYWRK 

PR 

Payroll TransaC^f^fl Work File 
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Record # File Name 

System 

File Description 

24 

WRKIDX 

PR 

Payroll Transaction Index 

25 

MANTRX 

PR 

Manual Transaction File 

26 

TEMP IX 

PR 

Temporary Index 

27 

PRHIST 

PR 

Payrol1 History File 

28 

OSPIDX 

PR 

Overtime/Sick Pay Index (temporary) 

29 

PRTOGL 

PR 

PR to G/L Interface File 

30 




31 

GLAMAS 

GL 

G/L Account Description Master File 

32 

GLAIDX 

GL 

G/L Account Description Index 

33 

YTDGLT 

GL 

Year-to-Date General Ledger Trx 

34 

GLWORK 

GL 

G/L Transaction Work File 

35 

SRC 1DX 

GL 

So^lll^lndex (temporary) 

36 

YTDIDX 

GL 

YeS^r^Date Trx Index (temporary) 

37 

TGL1DX 

GL 

Temporary Year-to-Date G/L Index 

38 

GLINTR 

GL 

G/L 1nterface File 

39 

ARTOGL 

AR 

A/R to G/L Interface File 


40 


41 

INVMAS 

OE 

Inventory Master File 

. ■ A 

42 

INVIDX 

OE 

Inventory Index 

s 

43 

RECTRX 

OE 

Receivings Transaction Work File 


44 

ORDHDR 

OE 

Order Header File 


45 

ORDLIN 

OE 

Order Line Items File 


46 

CRMHDR 

OE 

Credit Memo Header^J^ile 


47 

CRMLIN 

OE 

Credit Memo 


48 

LINIDX 

OE 

Line 1 terns 1 ndll^PP®^ 
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Version: DIBOL - 11 Disk 


Record # 

File Name 

System 

49 

SAPIDX 

OE 

50 

COMDUE 

OE 

51 

BAKORD 

OE 

52 

BO 1NDX 

OE 


53 

54 

55 

56 

57 

58 

59 


60 

EPLMAS 

TAB 

61 

CBCMAS 

TAB 

62 

CLTMAS 

TAB 

63 

CLTIDX 

TAB 

64 

TIMTRX 

TAB 

65 

TIMIDX 

TAB 

66 

WKINPC 

TAB 

67 

ARTRX 

TAB 


68 

69 

70 

71 

72 



Sales Analysis by Product Index 
(temporary) 

Commissions Due File 

Back Order File 

Back Order Index File 
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Record 

1 File Name 

System 

File Description 

'7 

73 




74 




75 




76 




77 




78 




79 




80 




81 

ASTMAS 

AD 

Asset Master File 

82 

ASTIDX 

AD 

Asset Master Index File 

83 

GLGCOD 

AD 

^^^^ral Ledger Code File 

84 

ASTORG 

AD 

Originals File 

85 

AQUIRE 

AD 

Ae’quistions File 

86 

RETIRE 

AD 

Retirements File 

87 

DEPREC 

AD 

Depreciations File 

88 

ASTHST 

AD 

Asset Change History File 

89 

ITAXCR 

AD 

Investment Tax Credit File 

90 

TADIDX 

AD 

Temporary Index to Asset Master File 
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INSTALLATION NOTES 


Version: ALL PACKAGES System: ALL SYSTEMS Release: ALL RELEASES 

NOTE ON PRINTER ALIGNMENT 

, T~ 

■ 

When using the MCBA packages the left-hand paper guide should never have to be 
adjusted more than half a space, even on special forms such as checks, 
statements and invoices, if the left-hand guide is set so that the first 
physical print position is 7/10” from the left-hand side of the paper. 



However, when printing W-2 forms, adjust the left-hand paper guide such that 
the first physical print position Is exactly 1 Inch away from the left-hand 
side of the paper. And, align the Top-of-Form such that the top edge of the 
paper of the continuous W-2 forms Is about a line and a half above the 
Top-of-Form mark on the printer. 
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1. Always end a field or an answer with a "CR" (Carriage Return). 

2. In almost all programs, the DELETE key will erase the last 
Character displayed on the screen. 

3. To erase a complete field (before you have ended it), type 
CTRL/U (both the CTRL key and the U key together). This will 
erase the field and reposition the cursor at the beginning of 
the field. 

4. To abort a record at any point, type the CTRL/W key. This will cause 
d message to appear at the bottom of the screen indicating that the 
record has not been processed, and then the screen will be cleared 

so that you can start over. 

5. Optional fields (fields not required) may be skipped by typing "CR". 

This sets numeric fields equal to zero, and a alphanumeric fields to 
all blanks. 

6. Default fields (fields where the value is the same for all records 
being entered) may be defaulted to the last value entered in that 
field by typing "CR". The computer will always display the default 
value. A new value may be entered iri^o a default field at any time — 
just treat it as a regular field. Defiult fields are always indicated 
in the Operator Instructions for the specific program you are running. 

In many cases, a default "CR" may also be used to answer "N" or "Y" 
as appropriate. And "CR" may be typed as the "STARTING #" when the 
starting and ending #'s are requested for certain print programs. 

This will cause "ALL" to be printed. 

7. Enter all DATES in the format MMDDYY (six digits, no slashes). The 
computer automatically re-displays the date entered in the display 
format: MM/DD/YY (that is, with the slashes). The computer also 
checks to make sure that the month entered is valid (1-12), as well 

as the day (1-31) and the year (0-99). «* 


8. All decimal points are automatically supplied by the computer. Never, 
type in a decimal point, comma, or a dollar sign when entering numeric 
or dollar data. But always enter all digits to the right of the 
decimal point, even if these digits are zero. For example, to enter 
ten dollars, type "1000". The computer will automatically re-display 
"10.00" — the computer also knows it is a doll a 
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9. In most cases, "END" can be typed in the first field on the screen 
-and processing will proceed to the next action or end, whichever Is 
progranmed to occur. The backspace key can be used for "END" 
wherever "END" may be typed. 

10, There are several types of errors which can be made while entering 
data on the screen. For Instance, you can enter alphabetic characters 
into a field which Is supposed to be only numeric. Or ycu can enter 
too many characters Into a field which must be positive. In all cases, 
the computer will catch the error Immediately and display a message at 
the bottom of the screen Instructing you how to recover easily. If 
your error is not immediately apparent to you, consult your Operator 
Instructions and Data Entry Specifications for the specific program 
you are running. 

11, Occasionally the "TAB" key or "CTRL/U" serve a special, purpose, not 
covered above. When this Is the case, this will be clearly Indicated 
on the specific Operator Instructions for the program(s) concerned. 

12, HOW TO READ "DATA ENTRY SPECIFICATIONS" 

"VDT".Line #; this is the # assigned to the field on the screen. 


"Field Description": this Is the name of the field (the label 
displayed on the screen is often more abbreviated). 

"Required": when this column has an "X" in it, this means you must 
enter some value In this field. When this column has "d" In It, 
this means you may default to the last value entered in this field 
(In a previous record) by simply typing "CR". If this column Is 
blank, this means you may skip the field by typing the "CR". 

"Type": "D" means only decimal characters can be entered here, 

"D-" means decimal characters and a minus sign (optional) may be 
entered. (The minus sign may be entered inmedlately before or after 
the numbers.) "D" applies to number fields, dollar fields and date 
fields, "A" means that any characters (numbers, letters or special 
characters) may be entered into the field. "A" applies to names, 
address, etc. 

"Min, Length" (minimum length): the minimum number of characters 
that m«^y be entered into the field, 

"Max. Length" (maximum length): the maximum number of characters 
that me^y be entered into the h'eld. 


"Decimal Places": the number of digits to the right of the assumed 
decimal point that must be entered. (Don't actual^ enter the 
decimal point the computer knows where to "aa^HB Jt Is. 




end 
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OPERATOR INSTRUCTIONS 


EXHIBIT Na 


pwojECT DIBOL - 11 Packages system 


APPLICATION MAIN ACCOUNTS PAYABLE MENU 

__A/P Master _ 

□ Momw* Disk on Drivs _ 

□ Mount Stock Papsr on Printsr 

PROCEDURE: 


This program may be run on request. It displays the main menu for the 
Accounts Payable system. (For those programs not on this menu, see the 
separate Operator Instructions.) 

1. Type: RUN APMENU 

2. Select the application desired. 

3. To end, type "END" for selection, 
end 


oi-Affl-7e OPERATOR INSTRUCTIONS 

^ PROJECT DIBOL - 11 Packages system_ AE_ 


EXHIBIT NO._ 
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? 



>« 



PROCEDURE: 


APPLICATION VENDOR MASTER FILE MAINTENANCE 

Mount A/P Master gn Drive 

□ Mount Disk on Drive _ 

)SC Mount Stock Paper on Printer 


This program may be run on request. 

1. Select #1 from the A/P Menu (or type: RUN VENMNT). 

2. Select application per menu on screen. 

3. For each application enter data requested per screen. 
(See the Data Entry Specifications sheet for details.) 

4. To end an application type "END" in the Vendor # slot. 

5. To end entire maintenance type "END" for menu selection, 
end 


i 
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PAGE 


of 


WHERE USED 


Vendor Master File Maintenance 
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OPERATOR INSTRUCTIONS 


DATE 

A DIBOL - 11 Packages 


SYSTEM 


AP 


EXHIBIT Na 
PAGE_ L_ 







PROCEDURE: 


APPLICATION 


ALPHABETICAL VENDOR LIST 


)it Mount A/P Master__0 

□ Mount Disk on Oriv* _ 

Jfi Mount Stock Paper on Printer 


This program may be run on request. 

1. Select #2 from the A/P Menu (or type: RUN VLIST). 

2. The report is printed out automatically. 


end 
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DATE _ 


OPERATOR INSTRUCTIONS 


* PROJECT 


DIBOL - 11 Packages 


SYSTEM 


AP 





! 

APPLICATION EXPENSE ACCOUNTS FILE MAINTENANCE 

Mount A/P Master_ Orivo —£_ 

□ Mount Disk on Drivo _ 

Mount Stock Papor on Printer 


PROCEDURE: 


EXHIBIT Na_ 

PAGE -_L_ of_I 


This program may be run on request. 

1. Select #3 from the A/P Menu (or type: RUN ACTMNT). 

2. Select application per menu on screen. 

3. For each application enter data requested per screen. 

NOTE: 

The term "Expense Account" is used loosely throughout this system. 

Any reference to "Expense Accounts" actually includes not only active 
expenses, but any other account to which the user may wish to distribute 
Accounts Payable, such as Costs of Assets. 

4. To end an application, type "END" in the Expense Account number 
slot. 

5. To end entire maintenance, type "END" for menu selection, 
end 
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WHERE USED_ Expense Account 


File Maintenance 


EXHIBIT NO._ 

PAGE_ L-of_1 


VDT 

ITEM Na 

FIELD DCECniPTION 

REQUIRED 

TYPE 

MIN. 

LENGTH 

MAX. 

LENGTH 

DECIMAL 

PLACES 

REMARKS 









1 

General Ledger Account # 

B 

D 

3 

B 


*xxxx-xxx 









2 

Account Description 


A 


30 












★ 


Requires a CR after first 4 digits; if no subaccount, skip last 3 with a CR. 
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'^oROJECT DIBOL - 11 Packages system ' _ page_L 


a#' APPLICATION NEW PAYABLES ENTRY AND EDITING 

- 

^ Mount A/P Master Driv# - 

□ Mount - Disk on DrivB _ 

Mount Stock Paper on Printer 

PROCEDURE: 


This program may be run on request. 

A ' 

1. Select #4 from the A/P Menu (or type: RUN NEWAP). 

2. Select application per menu on screen. 

3. For each application enter the data requested per screen. 

(See the Data Entry Specification sheet for details.) 

NOTES: 

The voucher # is automatically controlled. 

The Non-Discount Amount is the total of all amounts included in the 
Invoice Amount that are non-discountable (such as freight). 

The Discount Percent should be entered to 1 decimal place (but 
don't enter the decimal point itself). 

If the actual Discount Amount is desired rather than the percent, 

type a TAB key for the percent and enter the amount. 

The Due Date is user determined and must be entered. 

Only enter a Check # when the entry has been Prepaid, in which case 
the Due Date must be the check date. 

Expense Account Distribution is to a minimum of 1 account and a 
maximum of 9. The Expense Account # must be in the "Expense Account 
Description File" to proceed. 

Both positive and negative Amounts can be entered for the same 
Voucher, but Total Amount Distributed MUST equal the Invoice Amount, 
else the Payable cannot be terminated. A running Total of amount 
distributed is displayed. 



oi-apr-78 operator instructions 


DATE 

^ PROJECT DIBOL - 11 Packages 


SYSTEM * 


EXHIBIT NO_ 

PAGE _2_of 


APPLICATION NEW PAYABLES ENTRY AND EDITING 


4. To end a single Payable, type "END" in the ACCT# position. 

5. To end applications #1-4, type "END" in the Vendor # position. 

6. To end the entire prograa'i type "END" for menu selection. 

NOTE; Once the Edit List is correct, you must select #5 from the menu 
("POST TRX") to cause these Trx to be posted to the A/P Open Item File and the 
G/L Distribution File. This will also automatically result in the "Accounts 
Payable Voucher Register" being printed. 
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Data Entry 


DATE 

PROJECT_DIBOL - 1 1 Packages system AP 

WHERE USED _ 




VOT 

ITEM Na 

FIELD DESCRIPTION 

REQUIRED 

TYPE 





1 

Vendor # 

X 

D 






Vendor Name 







2 

Invoice # 


n 





3 

Invoice Date 

— 

D 





mm 

Invoice Amount 

n 

D 





5 

Non-Discount Amount 


ni 





6 

Discount Percent 


El 

6 

Discount Amount 


D 

7 

Due Date 

■■ 

D 





8 

Check # 


■■ 





9-17 

Distribution Account #s 

— 

■a 






Distribution Amounts 

wm 

D 
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EXHIBIT NO. 


_ PAGE_]_of _1 

New Payables Entry and Editing 


MIN. 

LENGTH 

MAX. 

LENGTH 

DECIMAL 

PLACES 

REMARKS 





m 

4 










Automatic Display 





m 

8 







5 

6 







1 

8 

2 







7 

2 







3 

Bi 

XX. X 


6 

2 


5 

6 


* 






6 


For Prepaids only 





3 

a 


XXXX-XXX 





1 

8 

2 
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exhibit Na 
PAGE_ L. 


APPLICATION 


A/P AGED TRIAL BALANCE 


^Mount -A/P Master _ 0,3^ on DrivB 

□ Mount - Disk on Drivo _ 


Jl^^ount Stock Papor on Printer 


PROCEDURE: 


This program may be run on request. . 

1. Select #5 from the A/P Menu (or type: RUN APTBAL). 

2. Enter the aging date, whether to show detail, and then the Starting 
and Ending account #'s to be printed. To print all accounts, enter 
"ALL" in the Starting # position. 

3. The report is printed automatically. 

4. The program will end automatically, 
end 
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EXHIBIT NO 


PROJECT DIBOL - 11 Packages system _5iL. 


PAGE_L 


APPLICATION CASH REQUIREMENTS REPORT _ 

^ Mount A/P Master Driv« —@— 

□ Mount ■■ Disk on Drivs _ 

Mount Stock Papsr on Printsr 

PROCEDURE: 

This report may be run on request. 

1. Select #6 from the A/P Menu (or type: RUN CSHREQ). 

2. Enter the Due Date Cut-off. Any item due after this date will not be 
reported. 

3. Enter the Intended Date of Payment. Any item with a discount availabl 
will lose the discount if due before this date. 


4. 


Printing is automatic. 
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EXHIBIT Na 


paniFrr DIBOL - 11 Packages 


SYSTEM 


AP 


PAGE ^ of 


APPLICATION CHANGING OPEN ITEM DUE DATE OR DISCOUN T AMOUNT 

^S^Mount _A/P Master_ Drive — 2 — 

□ Mount - Disk on Drive _ 

□ Mount Stock Paper on Printer 

PROCEOUHE: 


Run this program on request. 

1. Select #7 from the A/P Menu (or type: RUN DUEDTE). 

2. Enter Vendor # and Voucher # of Invoice to be changed. 

The contents of the Invoice are automatically displayed. 

3. Enter the new Due Date and the new Discount Amount. 

4. Enter a CR for Due Date to keep the same Due Date. 

5. Enter a CR for Discount Amount to keep the same Discount Amount. 

6. To end the program, type "END" in the Vendor # position, 
end 
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OPERATOR INSTRUCTIONS 


PROJECT DIBOL Packages system_AP 


EXHiarr ma 

PAGE_L 


PROCEDURE: 


APPLICATION PAYMENT PREPARATION _ 

Mount A/P Master q|,I^ Drivo _ 

□ Mount Disk on Drivo ___ 

□ Mount Stock Papor on Printor 


This program may be run on request. 

1. Select #8 from the A/P Menu (or type: RUN DEFER). 

2. Make selection on menu. Deferral method pays all vouchers 
before cut-off date unless specifically deferred. Selection 
mode pays only those vouchers specified. 

3. In order to rerun this batch without losing the previous 
preparation, answer "N" to "CLEAR ALL ..." question. When 
initiating preparation, the answer should be "Y". 

4. Enter the cut-off date if deferral was chosen. 

5. Make selection on the deferral/selection sub-menu. 

6. Enter the vendor # to be deferred or selected. 

7. Enter the voucher # (or "ALL") to be deferred or selected. 

8. To end, type "END" for menu selection. 

9. To cause the Pre-Check Writing Edit List to be printed, choose 
# 3 on the deferral/selection sub-menu. 


NOTE: 


One or more partial payments may be applied to a voucher but should not 
be equal to or exceed the amount of the original voucher; otherwise over¬ 
payment may occur. When the remaining balance of a voucher is to be paid 
in full and removed from the APOPEN file, the voucher should be paid via 
selection in "Payment Preparation". All paid partial payments will be taken 
into account, and the check will be issued for the remaining balance of the 
voucher during "A/P Check Writing". 


end 



of 
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APPLICATION PARTIAL PAYMENTS ENTRY/EDITING 
IS Mount yP Master _J__ 

□ Mount Disk on Drivs _ 

□ Mount Stock Paper on Printer 

PROCEDURE: 


This program may be run on request. 

1. Select #9 from the A/P Menu (or type: RUN PARTPY). 

2. Select application per menu on screen. 

See the Operator Instructions "Deleting Partial Payments from 
A/P Open Item" for application #6. 

3. For each application, enter the vendor # and voucher #. The voucher 
is displayed on the screen for Verification. Enter the partial 
payment amount and discount taken (ff any). 

4. To end applications #1-4. type "END" in the Vendor # position. 

5. To end the entire program, type "END" for menu selection. 

NOTE: Once the Edit List is correct, you must select #5 from the 
menu ("POST TRX") to cause these Trx to be posted to the A/P Open 
Item File. This will also automatically result in the "Partial 
Payments Register" being printed. 

NOTE: 


One or more partial payments may be applied to a voucher but should not 
be equal to or exceed the amount of the original voucher; otherwise over¬ 
payment may occur. When the remaining balance of a voucher is to be paid 
in full and removed from the APOPEN file, the voucher should be paid via 
selection in "Payment Preparation". All paid partial payments will be taken 
into account, and the check will be issued for the remaining balance of the 
voucher during "A/P Check Writing". 


end 


'i. 
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DATE 


Data Entry Specifications 


roject DIBOL - 11 Packages 


SYSTEM 


AP 


EXHISIT Na 
PAGE 1 


of 


WHERE USED 


Partial Payments Entry/Editing 


VOT 

ITEM NG 

FIELD DESCRIPTION 


TYPE 

MIN. 

LENGTH 

MAX. 

LENGTH 

DECIMAL 

PLACES 

REMARKS 









1 

Partial Payment Amount 

mm 

D 

1 

8 

2 










2 

Partial Payment Discount 


D 


6 

2 












3.17 



















01-APR-78 

DATE _ 


OPERATOR INSTRUCTIONS 


EXHiarr no 


PROJECT 


DIBOL - 11 Packages 


SYSTEM 


AP - 


PAGE_ I 


application deleting PARTIAL PAYMENTS FROM A/P OPEN ITEM 

JB Master q|,|^ Driv* —S_ 

□ Mount Disk on Drivo ____ 

□ Mount Stock Paper on Printer 

PROCEDURE; 


This program may be run on request. 

1. Type; RUN DELPRT (or select #6 from the Partial Payments menu). 

2. Enter Vendor # and Voucher #. 

3. To end program, type "END" in Vendor # field. 





DATE 


01-APR-78 


PROJECT. 


OPERATOR INSTRUCTIONS 

DIBOL - 11 Packages AP 


SYSTEM 


EXMBtT NO_ 

PAGE -__L«.of_i 


APPLICATION CHECK WRITING 


□ Mount A/P Master _ qi^I^ Drive 

□ Mount Disk on Drive 

□ Mount Stock Paper on Printer 



PROCEDURE: 


This program may be run on request. . 

1. Select #10 from the A/P Menu (or type! RUN ALAPCK (CR)). 

2. Mount check forms on printer. 

Leave left-hand paper guide fixed. Move right-hand guide in. 

Position top of second stub on print line. 

3. One check form will be printed with X's for alignment purposes. 

The question "PRINT ANOTHER ?" will then appear on the screen. If 
alignment is OK, answer "N" and proceed to the next step. If not 
OK, make adjustments. Answer "Y" and another X'ed form will be 
printed. Repeat the cycle if necessary. 

4. Enter the Check date. On a restart, the check date MUST be the 
same as on the first run. 

Enter the starting check number. 

Enter the starting vendor number. This is the first vendor on file 

that is to be paid as indicated on the Pre-Check-Writing Report. On | 

a restart, enter the appropriate vendor number. \ 

1 

Checks will start to print automatically. 

5. Check Writing. If the checks are not turning out satisfactorily i 

due to printer malfunction or for any other reason, type "CTRL/C" 

and restart the program at step 2. 

The first checks printed which are okay do not need to be rewritten. 

Restart with the appropriate check number and vendor number. 

At the end of the printing, the message "ARE ALL CHECKS SATISFACTORY ?" 
will be displayed. If not, answer "N" and restart as above. 

yy ' 

■ Ip'' 
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OPERATOR INSTRUCTIONS 


DATE 


EXHIBIT Na 


«taiPROJECT DIBOL - 11 Packages 


SYSTEM 


AP 


PACE_2 


APPLiCATiQN _CHECK WRITING 


, 1 .>, ■■ 


Note that the restart feature is limited to the selection of a 
starting point in the vendor number sequence. Checks will be 
rewritten from the starting vendor selected to the end. 

6. Remove the checks from the printer and mount stock paper. 

7. A Check Register is printed automatically. 


end 
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HAT, OPERATOR INSTRUCTIONS 

PROJECT DIBOL -11 Packages system__ 


EXHIBIT Na_ 

PAGE 1 of 


APPLICATION PREPAID CHECK REGISTER 


^Mount Master. 

□ Mount_ 


Disk on DrivB 
Disk on Drive 


^2S(^Mount Stock Paper on Printer 


PROCEDURE; 

Run on request. Use in an end-of-accounting-period situation where prepaid 
items are on file and no machine checks need to be written. 

1. Type: RUN APCKRG 

2. Check Register is printed automatically. 

Note: Running this program causes prepaid check items to be removed from 
the A/P Open Item file. 


end 



3.21 


01-APR-78 


DATE 


OPERATOR INSTRUCTIONS 

PROJECT DIBOL - 11 Packages system__ 


EXHIBIT NO. 

PAGE 


APPLICATION VENDOR ANALYSIS REPORT 

X Mount A/P faster jjlBk on Driv* @— 

□ Mount ■ - Disk on Drivs - 

X Mount Stock Papsr on Printsr 

PROCEDURE: 

Run on request. 

1. Select #11 from the A/P Menu (or type: RUN VENANL). 

2. The Report is printed automatically. 

end 
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OPERATOR INSTRUCTIONS 


DATE 


PROJECT DIBOL - 11 Pdckdges system 


EXHIBIT HO. 
PAGE_ L 


APPLiCATiOM A/P - G/L DISTRIBUTION CROSS REFERENCE REPO RT 

^ Mount A/P Master Orivo _^_ 

O Mount ____________ Disk on Drivo _ 

Mount Stock Paper on Printer 

PROCEDURE: 


This report may be printed on request. 

1. Select #12 from the A/P Menu (or typet RUN AP6LCR). 

2. Enter the Report Ending Date. Invoices dated later than this date 
will not be reported. Specify whether to show detail. 

3. The Report is printed automatically. 

4. The message "PURGE FILE THRU REPORT DATE ?" is displayed. Answer 
"Y" or "N" as appropriate. 

Note on A/P to G/L Interface ; 

If the A/P system interfaces to General Ledger, then a "Y" answer 
in Step 4 above will cause the Expense Account amounts to be posted 
to the A/P to G/L Interface file. Make sure to run the AUTOGL 
program in the General Ledger System to post these amounts to the G/L 
Work file before purging the G/L Distribution file at i later date 
(by selecting "Y" in Step 4 above). Otherwise, some of the Interface 
transactions will be lost. 


end 
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OPERATOR INSTRUCTIONS 


□ATE 


PROJECT. 


DI60L - 11 Packages 


SYSTEM 


AP 


EXHIBIT Na 

1 


PAGB 


APPLICATION 

Mount _ 
□ Mount _ 


PURGE PAYABLES 


A/P Master 


Disk on Orivo 
Disk on Drivo 


^ Mount Stock Papor on Printer 


PROCEDURE- 


Prior to running this program, any payables to be purged must 
balance. That is, credit memos of equal value must have been 
previously posted. 


1. 

Select #13 from the menu (or type: 

RUN PURGAP). 

2. 

Enter the vendor number. 


3. 

Enter up to 10 different voucher numbers for the vendor. When 
the total is zero, type "END" for the voucher number. 

4. 

When all payables have been purged 
number. 

, type "END" for the vendor 

5. 

A report of the items just purged 

is automatically produced. 

end 
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OPERATOR INSTRUCTIONS 


DATE 

project DIBOL - 11 Packages 


SYSTEM 


EXHIBIT NO. 
PACE_L_ 


APPLICATION DISPLAY A/P OPEN ITEM TOTAL ON SCREEN 
^I^Mount A/P Master qp Drive ^ _ 

□ Mount Disk on Drive _ 

□ Mount Stock Paper on Printer 

PROCEDURE: 


This program may be run on request. 

It displays the total value of the A/P Open Item File on the screen. 

1. Type: RUN APOCTL 

2. Total displays after a short processing period, 
end 


3.2S" 


DATg 01-APR-78 OPERATOR INSTRUCTIONS exhibit Na_ 

PROJECT DIBOL - 11 Packages system AP _ page 1 of_1 

APPLICATION CLEARING. YTD FIELDS ON VENDOR MASTER _ 

Mount A/P Master_ oisk on Drive Ji _ 

□ Mount Disk on Drive _ 

□ Mount Stock Paper on Printer 

PROCEDURE: 

This program should be run after running the final Vendor Analysis for the 
year (which should be run after the last New Payables Entry for the year) and 
before the first New Payables Entry of the new year. 

1. Type: RUN APYREN 

(Let processing run until the "END OF PROGRAM" message appears.) 
end 


^ 4 : 
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o*Tt O’ -APR-78 System Logic Row 

PBQjprr D^BOL - 11 Packages All Systems 


EXHiaiTNa. 

PAGE_L 


MODULENAME. 


Standard Master File Maintenance Module 



First, the menu is displayed and one of the following selections 
is allowed; 

1. Add 

2. Change/Inquire 

3. Delete 

4. Print-out 

Or "END" may be typed to end the entire program. 

If Add is selected, see page 2. 

If Change/Inquire or Delete is selected, see page 3. 

If Print-out is selected, see page 4. 

See page 5 for processing when "END" is entered. 



DATE. 


01-APR-78 


System Logie Flow 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM. 


Mil Systems 


MODULENAME. 


Standard Master File Maintenance Module 


EXHIBIT NO._ 

PAQE _ ^ at 7 


ADDITIONS; 



The full VDT format is displayed, and the key is accepted. 

If "END" was typed, the program returns to the menu (page 1). 

Otherwise, the program checks to make sure the key is not 
already on the file. (If it is, an error message is displayed 
and a new key must be entered.) 

The full record is then entered, with editing thru the "ANY CHANGE?" 
and 'WHAT ^?" modes. 

The record is then aoded to the file and the index (if any). If the 
file is not full (checking the maximum record count in the central 
record of the file), the program returns to display the VDT format 
for the next record (or "END"). If the file is full, a message is 
displayeo and the program stops. 

When "END" is entered, the menu is redisplayed. 
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DATE. 


01-APR-78 


PROJECT. 


System Logic How 

DIBOL - 11 Packages system Systems 


MODULENAME. 


standard Master File Maintenance Module 


EXHIMTNa_ 

PAOE__L_o» 


CHANGES/INQUIRIES AND DELETIONS; 



The full VDT format is displayed, and the key is entered. (If "END" 
is typed, the program returns to the menu (page 1).) 

The record is found and oisplayed on the screen. (If It Is not found, 
an error message is displayed and a new key must be entered.) 

If in Change/Inquire mode, any changes are entered thru "ANY CHANGE?" 
and "WHAT #?". (In Inquire mode no changes are entered.) The record 
is then updated on the file, and the program returns to redisplay 
the full VDT format and accept another key (or "END"). 

In Delete mode, after aisplaying the record, "IS THIS THE RIGHT 
RECORD ?" is asked, (If not, a new key must be entered.) After 
verifying the right record, the program marks the record for deletion, 
updates the delete counter in the control record of the file, an^ 
returns to the full VDT format for another key (or "END"). (The 
index, if any, is also marked for deletion at the time the main record 
Is marked.) 
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01-APR-78 


DATE. 


PROJEa. 


System Logic Row 

DIBOL - 11 Packages - Systems 


SYSTEM. 


EXHIBIT NO. 
PAGE 




MODULENAME. 


Standard Master File Maintenance Module 


SORT; 



When Print-out is selected, the question "SORT BEFORE PRINTING ?" 
is then asked. (Sort should be selected for a full ordered 
FriPt-out.) 

If sort is selected, the index (or the Master if there is no 
index) is sorted, and the control recorc of the file is updated 
to show the number of records in the file that are sorted (now 
the full file). 





Whether the file is sorted or not, the print program starts. 

The starting and ending numbers for printing (or "ALL") may 
be entered. 

The report is then printed from the starting to the ending 
numbers or; if "ALL" was selected, the entire file is printed. 

If "ALL" was selected, the program returns to the menu (page 1). 
Otherwise, another starting and ending number sequence may be 
entered. "END" may also be entered to stop printing and return 
to the main menu. 



4.5 





When "END" is typed, the program first checks the delete 
counter in the control record (first record) of the file. 

If more than 50 deletions have been made, the file is 
automatically re-organized, physically removing the records 
marked for deletion from both the main file and index (if 
any). 

If the delete counter is not greater than 50, the program 
checks the add counter. If more than 50 records have been 
added, processing continues. 

If neither the delete nor aod counter exceeds 50, the 
program ends. 
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The index file is sorted. If there is no index file, 
then the master file itself is sorted. 

The record control counters in the control record for 
the file are updated, and processing stops. 
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System Logic Row 


EXHieiTNa. 


PROJECT. 


OIBOL - 11 Packages 


SYSTEM. 


All Systems 


MODULE NAME Standard Transaction File Entry, Editing and Posting Module 



POST 


First, the menu is displayed and one of the following selections 

is allowed: ^ 

1. Add 

2. Change 

3. Delete 

4. Print Edit List 

5. Post Transaction 

"END" may be typed to end the entire program. 

See indicated pages for processing appropriate to Add, Change/Inquire, ^ 

Delete, and Print Edit List. ^ 

When Post Transactions is selected, the Transactions are posted to I 

the main file(s) according to the specific logic flow for each , 

posting program(s)* (See separate System Logic Flow for each 1 

individual posting flow.) 
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DATE. 


01-APR-78 


System Logie Row 


EXHiaiTNa. 


PRQjgcT D^BOL - 11 Packages _ All Systems 2^5 


SYSTEM. 


PAOe. 


MODULENAME. 


Standard Transaction File Entry, Editing and Posting Module 


ADDITIONS: 



The full VDT format is displayed and the record is accepted. 
(If "END" is typed in the first field, the program returns 
to the menu (page 1).) 

The record is added to the file, and the record count in 
the control record is updated. 

Unless the file is full, the program re-displays the full 
VDT format and accepts another record (or "END"). 

If the file is full, a message is displayed and processing 
stops. 
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System Logic Row 


EXHierrrto. 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM. 


All Systems 


MODULENAME. 


Standard Transaction File Entry, Editing and Posting Module 


CHANGES: 



When Change or Delete is selected, the full VDT format Is 

displayed. ^ 

Then, the key of the record being sought is entered. (If I 

"END" is typed, the program returns to the menu (page 1).) 

The program finds the record, displays its contents on the 

screen, and asks "IS THIS THE RIGHT RECORD ?". (If not, the ^ 

program looks for the next sequential record with the same 

key and displays it. If the record is not found, an error ^ 

message is displayed, and a new key must be entered.) - I 

Changes are entered thru "ANY CHANGE ?" and "WHAT #?". ^ 

The record is then updated on the file, and a new key may 

be entered, or "END" may be typed to return to the menu I 

(page 1). ^ 

t 
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DATE. 


System Logie Row 


PROJECT. 


OIBOL - 11 Packages 


SYSTEM. 


All Systems 


EXHIBIT Na. 
4 


PAOE. 


MODULENAME. 


Standard Transaction File Entry, Editing and Posting Module 



The record is found using the same method as on a change. ^ 

After verifying the right record, the program marks the 
record for deletion, and a new key may be entered, or "END" 
may be typed to return to the menu (page 1). (Records 

marked for deletion are left in the Transaction file but m 

are not further processed. 

j 
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DATE. 


System Logie now 


SYSTEM. 


All Systems 


PAOE. 


PROJECT DIBOL - 11 Packages 
MODULENAME Standard Transaction File Entry, Editing and Posting Module 


EXHierTNO. 
5 



The Edit List is printed from the Transaction file 
and control returns to the main menu. 


i 
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01-APR-78 


DATE. 


PROJECT. 


System Logic Flow 

DIBOL — 11 P&ckSQOS SYSTEM 


MODULENAME Initialize Accounts Payable Files (INITAP) 


EXHIBIT NO._ 

* 

PAGE 1 at 2 



The maximum # of records to allow for each file in the 
Accounts Payable System is entered per Video Terminal 
exhibit # VTAPl, p. 1. 

The files are built with dummy bracket records. See 
all A/P File Definition exhibits. 
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DATE. 


01-APR-78 


System Logic Flow 


PROJECT DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULENAME Initialize Accounts Payable Files (INITAP) 


EXHIBITNO._ 

PAGE ^ af 



The data pertaining to G/L Interface is entered per VTAPl, p. 2. 

The A/P to G/L Interface file is created with the specified 
# of records. 

The Interface flags are set in the New A/P Trx File, the 
General Ledger Distribution File, and the A/P Open Item File. 

The starting voucher # is entered for Accounts Payable 
Transaction File. 
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DATE. 


01-APR-78 


System Logic Row 


^ PROJECT DIBOL - 11 Packages system. 


AP 


MODULENAME. 


Reset Starting Voucher Number (SETVCH) 


EXHIBIT NO._ 

PAQE 1 af _1 



The new starting voucher # is entered through the 
terminal. 

The new number is recorded in the New Accounts Payable 
File (FDAP4). 
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DATE ^ System Logic Flow 

pRoiFCT DIBOL - 11 Packages _ system__ 

MODULE NAME Master Menu for Program Selection (APMENU) 


c 


START 


’^DISPLAY 

MENU 

ACCEPT 

SELECTION 


ST'orfo’’'^l 


Enter selection per Video Terminal exhibit # VTAP2. 


EXHIBIT NO._ 

PAGE 1 af_1 


i 

i 

i 

i 

,4 
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01-APR-78 


DATE. 


System Logie Row 


PROJECT _DIBOL - 11 Pflcksges 


SYSTEM. 


AP 


MODULE NAME. 


Vendor Master File Maintenance (VENMNT) 


EXHIBiTNO._ 

PAGE _ ^ at_1 


This is a Standard Master File Maintenance Module. See 
separate detailed write-up for this type of module. 

See also exhibits # VTAP3 Vendor Master File Maintenance 

FDAPl Vendor Master File 
FDAP2 Vendor Index 
RPTAPl Vendor Print-Out 


4.17 




First, a temporary index (FDAP9) is created containing the 
vendor name. 

The index is then sorted into order by vendor name and 
used to reference the Vendor Master (FDAPl). 

Finally, the Alphabetical Vendor List (RPTAP2) is printed. 
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DATE. 


01 -APR-78 


System Logic Flow 

AP 


_ SYSTEM, 


PROJECT DIBOL - 11 Packages 

Expense Account File Maintenance (ACTMNT) 

MODULE NAME _L_1 


EXHIBIT NO._ 

PAGE ^ of 


This is a Standard Master File Maintenance except there 
is no index. See separate detailed write-up for this type 
of module. 

See also exhibits # VTAP4 Expense Account File Maintenance 

FDAP3 Expense Account File 
RPTAP3 Expense Account List 
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DATE. 


System Logic Row 


PROJECT DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULENAME Vouch New Payablcs (NEWAP) 


EXHIBIT NO._ 

PAGE 1 of 



The menu (VTAP5, p. 1) is displayed and one of the 
following selections is allowed: 

1. Enter (Add) New Transaction 

2. Change Existing Transaction 

3. Delete Existing Transaction 

4. Print Transaction Edit List 

5. Post Transaction to A/P Open File 

See indicated pages for the processing appropriate to each” 
selection. 

"END" may be entered to terminate processing. 
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DATE. 


01-APR-78 


System Logic Flow 


PROJECT DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULENAME. 


Vouch New Payables (NEWAP) 


EXHIBIT NO._ 

PAGE 2 a, 8 


Additions: 



The full VDT format (VTAP5, p. 2) is displayed and the record 
is accepted. (If "END" is typed in the first field, the 
program returns to the menu (page 1).) 

The record is added to the file, and the record count in the 
control record is updated. 

The program redisplays the full VDT record format (VTAP5, p. 2) 
and accepts another record (or "END"). 
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o*TE ~ System Logic Row 

project DIBOL - 11 Packages _ system_ ^ _ 

MODULE NAME Vouch New Payables (NEWAP) _ 


EXHIBIT Na_ 

PAGE 3 of 8 



When Change or Delete is selected, the full record format 
{VTAP5, p. 2) is first displayed. 

Then the key of the record being sought is entered. (If "END" 
is typed, the program returns to the menu (page 1).) 

The program finds the record, displays its contents on the 
screen, and asks if this is the right record. (If not, the 
program looks for the next sequential record with the same key, 
displays it, etc. If the record is not found, an error message 
is displayed, and a new key must be entered.) 

In Change mode, changes are entered through "ANY CHANGE ?" and 
"WHAT # ?". The record is then updated on the file, and a new 
key may be entered, or “END" may be typed to return to the menu 
(page 1). 

In Delete mode, after verifying the right record, the program 
marks the record for deletion, and a new key may be entered, or 
"END" may be typed to return to the menu (page 1). 
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The Edit List is printed (RPTAP4) from the New A/P Transaction 
file (FDAP4). 

Then the menu (VTAP5, p. 1) is redisplayed. 
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DATE. 


01-APR-78 


System Logic Flow 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM 


AP 


MODULE NAME Vouch New Payables (NEWAP) 



The New A/P Transaction file (FDAP4) is sorted by voucher 

Then, the sorted transaction file is used to create the 
"Accounts Payable Voucher Register" (RPTAP4). 

The records on the New A/P Transaction file are used to 
create one record for each Expense Account Distribution on 
the New G/L Distribution Transaction file (FDAP5). 


EXHIBIT NO._ 

PAGE 5 ^ 
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DATE - System Logic Flow 

PROJECT DIBOL - 11 Packages _ system AP _ 

MODULENAME Vouch New Payables (NEWAP) _ 


EXHIBIT NO_ 

PAGE 6 at 8 



The New A/P Transaction file (FDAP4) is sorted into order by 
vendor #, voucher # in preparation for the next update. 

The Vendor Master file (FDAPl) is updated via the Vendor 
Index (FDAP2) from the sorted New A/P Transaction file (FDAP4). 

The New G/L Distribution Transaction file (FDAP5) which was just 
created is sorted into order by expense account #, voucher # in~ 
preparation for merging to the main file. 
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01-APR-78 


System Logic Flow 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULENAME Vouch New Payables (NEWAP) 


EXHIBIT NO._ 

PAGe__Z_ot 






UPDATED , 
A/P OPEN 
ITEM FILE 


INTERFACE 

DISTRIBU¬ 

TIONS 



Now, the G/L Distribution file (FDAP6) is updated by merging 
new records fromi the G/L Distribution Transaction file (FDAP5). 

The A/P Open Item file (FDAP7) is updated from the New A/P 
Transaction file (FDAP4). 

The Interface Distribution Work file is created. 





4 
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HATF Ol-APR-78 


System Logic Flow 


EXHIBIT NO.. 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM. 


MODULENAME. 


Vouch New Payables (NEWAP) 



The Interface Distributions Work file is sorted and posted to the 
AP to GL Interface file (FDAP 8). Finally, the New A/P Transaction 
file (FDAP4) is cleared to one control record in preparation for the 
next run. 
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PROJECT DIBOL ~ 11 PdckdQBS 


System Logic How 


SYSTEM. 


EXHteiTNO.. 


PAGE 1 at 


MODULE NAME. 


Print A/p Aged Trial Balance (APTBAL) 



The date to be used for ageing, whether to print detail, 
and the starting and ending vendor #'s for the report are 
accepted through the terminal (VTAP6). 

Then the A/P Aged Trial Balance is printed from the A/P 
Open Item File (FDAP7) and the Vendor Master and Index Files 
(FDAPl and FDAP2). 
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01-APR-78 


System Logic Row 


EXHIBIT NO.. 


PROJECT DIBOL - 11 Packages 


SYSTEM. 


MODULE NAME Print Cash Requirements Report (CSHREC 



The due date cutoff and intended payment date are 
entered through the terminal (VTAP7). 

The "Cash Requirements Report" (RPTAP6} is printed 
using the A/P Open Item File (FDAP7) and the Vendor 
Master and Index (FDAPl and FDAP2). 
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PROJECT DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULE NAME. 


Change Due Dates or-Disegunt Amounts (DUEDTE) 


EXHIBIT NO_ 

PAGE 1 af _1 



The record format (VTAP8) is displayed and the data 
is accepted. The proper record is found on the A/P 
Open file (FDAP7) and the due date is updated. 

When "END" is entered, processing stops. 
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01-APR-78 


pwtuger ~ Packages SYSTEM 

lOOULENAME Payment Preparation (DEFER) 


System Logic Row 

.evsmA AP 


EXHIETTNa 
PAGE_ L 


START 


DISPLAY ' 
MENU AND 
ACCEPT 
.SELECTIOfi 


ENTER 

SELECTION 


> 

"END" 

_ 

C.STOP ) 




PAYMENT BY 
DEFERRAL 


First, the menu (VTAP9, p. 1) is displayed. 
The selection is entered. 


A 






01-APR-78 


System Logie Flow 


eMBTTNa. 


Pffftjggr - 11 Packages 

, uflntiiBMAuK Payment Preparation (DEFER) 


psce 2 10 



The question is asked whether to clear the selection 
flags. 

If the answer is yes, the flags for all the records 
are set to "deferred". 

If the answer is no, processing goes directly to the 
sub-menu. 

i 

The sub-menu is displayed and the selection is accepted. 

‘i 

i 


I 

■i 

4 
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I 


OATH _ System Logic Flow BXHiarrNa_ 

j^ROJECT ~ Packages _ syctm AP _ paoh 3 a# Ig 


MODULE NAME 


Payment Preparation (DEFER) 


By Selection: 



The vendor number and voucher number are entered 
for selection. 

If "END" is entered, processing returns to the 
sub-menu. 

Otherwise, the item(s) specified is (are) selected. 


•1 

I 

M 
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DATE. 


System Logic Flow 


.PROJECT. 


DIBOL - 11 Packages 


SYSTEM. 


AP 


* MODULENAME. 


Payment Preparation (DEFER) 


By Selection : 


EJMETTNa_ 

PAQE at Ig 



The vendor number and the voucher number are entered 
for cancellation. 

If "END" Is entered, processing returns to the sub¬ 
menu. 

Otherwise, the selection of the item(s) specified is 
cancelled. 


1 

J 
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The question is asked whether to clear the deferral 
flags. 

If the answer is fw, processing goes directly to 
the entry of the due date cutoff. 

If it is desired to clear the deferral flags or if the 
due date is to be changed, a new due date cutoff is 
entered. Processing continues with the setup of the 
AP Open Item file. 

If neither of the above options are desired, processing 
continues with display of the deferral sub-menu. 
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All items after the cutoff date are deferred. 

The sub-menu is displayed and the selection 
made. 


i 


4.35 






01-APR-78 ^ A i • p-i 

OATi_ SyStOm LOQIC Flow ExmarNa^._ 

pwQjEer DIBOL - 11 Packages _ system_paoe 7 Ig 

MOGULS NAME Payment Preparation (DEFER) _ 



The vendor number and voucher number are entered 
for deferral. 

If "END" is entered, processing returns to the * 

sub-menu. 1 

Otherwise, the item(s) specified is (are) deferred. i 

1 

4 

\ 

i 

J 
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DATl. 


01-APR-78 


System Logic Flow 


DIBOL - 11 Packages 


SYSTEM. 


AP 


. MODULENAME. 


Payment Preparation (DEFER) 


OMBTNa_ 

FAQE _ 8 ^ Ig 


By Deferral : 



The vendor number and voucher number are entered 
for cancellation. 

If "END" is entered, processing returns to the 
sub-menu. 

Otherwise, the deferral of the item(s) specified 
is cancelled. 
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nAT» System Logic Row 

^poaiecT ~ Pacloges _ JYS«1I_ AP 

• unniiigMAug Payment Preparation (DEFER) _ 


SXHIBTNa_ 

PAQg ^ fl»_10 


Pre-Check Writing Edit List: 



The intended payment date is entered per VTAP12. 

The Pre-Check-Writing Report is printed per 
RPTAP8. 

Processing is returned to the first menu in the 
job stream. 




DATE _^ System Logic Row 6XHIBITNa_ 

pwQjggr DIBOL - 11 Packages _ svstpm _ AP PAGg _ 

^odulename Payment Preparation (DEFER) _ 


This page has been intentionally left blank 


01-APR-78 


DATE. 


System Logic Flow 


SYSTEM. 


AP 


•l PROjgrr DIBOL - 11 Packages 

MODULENAME Partial Payments Trx Entry/Editing (PARTPY) 


EXHIBIT NO._ 

PAGE 1 at _2 



This is a Modified Trx Entry/Editing Module. There 
is one selection added to the main menu: "REMOVE 
POSTED PARTIALS". This deletes partial payments 
from the A/P Open Item File. (See separate System 
Logic Flow for the processing.) 

Also see VTAP10 - Partial Payments Entry/Editing 
RPTAP7 - Partial Payments Register 
FDAP7 - A/P Open Item File 
FDAP10 - Partial Payments File 

To post transactions, the Partial Payments file 
(FDAP10) is sorted into order by vendor # and voucher #. 

The Partial Payments Register (RPTAP7) is printed. 
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01-APR-78 


DATE. 


System Logic Flow 


SYSTEM. 


AP 


pen.PrT - 11 Packages 

Partial Payments Trx Entry/Editing (PARTPY) 


EXHIBIT NO.. 
2 


PAGE. 


MODULENAME. 



The Partial Payments file (FDAP1(J) is posted into 
the A/P Open Item file (FDAP7) using the standard 
Merge-X technique. 

Then, the Partial Payments file is cleared to a 
control record and dummy bracket records. 
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DATE. 


01-APR-78 


System Logic Flow 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM, 


AP 


EXHIBIT NO._ 

1 .Of. 1 


_ PAGE 


MODULENAME. 


Delete Partial Payments from A/P Open Item File (DELPRT) 



The key is entered per VTAP13. 

If the key = "END" then processing is terminated. 

Otherwise, "RIGHT PARTIAL ?" is asked. 

If no, a return is made for the next key. 

If yes, the record is flagged for deletion and 
a return is made for the next key. 
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01-APR-78 


DATE. 


System Logic Row 


PROJECT, 


DIBOL - 11 Packages 


SYSTEM. 


AP 


EXHIBIT Na_ 

PAGE__L__o»_1 


MODULENAME Print Checks; Print Check Register and Update A/P Open Item File (PRECHK) 



DISPLAY 

"MOUNT 

CHECK 

FORMS" 




ACCEPT 
CHECK DATE 




START/END 
VENDOR #‘S 



A request is made to mount check forms on the printer. 

The check date and starting and ending vendor numbers 
are accepted through the terminal (VTAP13). 
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01 -APR-78 


System Logic Row 


EXHIBIT NO.. 


AP - 358 


PRQjgcT DIBOL - 11 Packages _ system _ AP - 350 _ page . ^ af 

MODULENAME Checks; Print Check Register and Update A/P Open Item File (PRECHK) 



Then the checks (RPTAP9, FORMAPl) are produced using 
the A/P Open Item File (FDAP7), the Vendor Master 
(FDAPl) and Vendor Index {FDAP2). The A/P Open Item 
File is updated to reflect paid checks. 

A check is made to determine if check printing is 
satisfactory. 


. j 


4.44 




01-APR-78 


DATE. 


System Logic Flow 

^ PBQjger DIBQL - 11 Packages _ system_ 


EXHIBIT NO. 


PAGE 3 af_i. 


MODULE NAME Print Checks; Print Check Register and Update A/P Open Item File (PRECHK) 


( A/P OPEN 
ITEM FILE 




NO 


UPDATE 

PAID 

ITEMS 



DISPLAY 

"MOUNT 

REGULAR 

PAPER" 


<£) 



.41 


UPDATED 
A/P OPEN 
ITEM FILE 


If the checks are satisfactory, processing continues. 

Otherwise, processing stops after an error message 
has been displayed. 

The A/P Open Item File (FDAP7) is updated to reflect 
the check date for all paid items. 

A request is made to mount regular paper on the printer.. 
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01-APR-78 


System Logic Flow 


EXHIBIT NO. 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM 


MODULENAME 


Print Checks; Print Check Register and Update A/P Open Item File (PRECHK) 



Processing continues with production of the Accounts 
Payable Check Register (RPTAPIO). 

All prepaid, paid and credit balance items are cleared 
from the A/P Open Item File (FDAP7). 
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01-APR-78 


DATE. 


PROJECT. 


System Logic Flow 

DIBOL - 11 Packages_ system _ AP 


MODULENAME. 


Print Vendor Analysis (VENANL) 


EXHIBIT NO.._ 

PAGE 1 of 



The Vendor Analysis Report (RPTAPll) is printed. 





Ot-APR-78 


System Logic Flow 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM. 


AP - 350 


EXHIBIT NO.. 


PAGE_ L 


MODULENAME. 


Print G/L Distribution Cross Reference. Optionally, Purge the G/L 
Distribution File and Interface to G/L. (APGLCR) 



The report ending date and whether to show detail is 
accepted (VTAP14), and the Expense Account Cross 
Reference (RPTAP12) is printed. 

Files used for the report are the Expense Account 
Description File (FDAP3) and the General Ledger 
Distribution File CFDAP6). 

A check is made to see if the General Ledger Distribution 
file should be purged through the report date. 

If not, processing stops. 
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Ot-APR-78 
DATE_ 


System Logic Flow 


EXHIBIT NO. 




PROJECT_ 

MODULENAME 


DIBOL - 11 PackflgBS _ system AP 

Print G/L Distribution Cross Reference. 
Distribution File and Interface to G/L. 


__ page ■_ 2 

Optionally, Purge the G/L 
(APGLCR) 



^ The General Ledger Distribution File (FDAP6) is 
rewritten omitting all entries dated prior to the 
report date. 

Records are created in the APTOGL Interface File 
(FDAP8). 
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01-APR-78 


DATE. 


System Logic Row 



ECT. 


DIBOL - 11 Packages 


SYSTEM. 


AP 


LENAME. 


Purging Payables (PURGAP) 


EXHIBIT NO._ 

PAGE ^ of 



The vendor # and voucher # are entered per VTAP15. 

If "END" Is entered for the vendor #, processing is 
continued with the print program (see next page). 

Otherwise, the A/P Open Item record (FDAP7) is 
flagged for purging and a copy of the record is 
added to the A/P Open Purged Items File (FDAPll), 
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01-APR-78 


DATE. 


System Logic Flow 


WHJJECT. 


DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULENAME. 


Purging Payables (PURGAP) 


EXHIBIT NO._ 

PAGE_L_ot_ - 



The A/P Open Purge Report is printed per RPTAPIS. 

•T 

The records flagged for purging are removed from * 

the A/P Open Item file. 
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01-APR-78 


DATE_ System Logic Flow 

PROJECT DIBOL - 11 Packages _ system_ 

MODULENAME Display Total Value of A/P Open File (APOCTL) 


EXHIBIT NO. 



The Accounts Payable Open Item File (FDAP7) is read 
and the value of all items is accumulated. 


The final total is displayed. 


EXHIBIT NO. 


01-APR-78 


DATE 


System Logic Row 

PROJECT DIBOL - 11 Packages _ system_^L___ 


PAGE 1 of _1 


MODULE NAME Clear Billed YTD and Number of Vouchers YTD (APYREN) 



The Vendor Master File (FDAPl) is read and the year-to- 
date total fields are cleared. 
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01-APR-78 


DATE _ 


Program Specifications 

_ SYSTEM _ 


ppniPCT DIBOL-11 Packages _ • All Systems 


EXHIBIT Na_ 

PACE ^ d 4 


MODULE NAME. 


(Your Program Name) 


□ SINGLEJOB XUME SHARE 


FUNCTION Standard Master File Maintenance - Allows maintenance to a Master File 
_ (AdditionSi Chances. Deletions and Print-out) _ 


INPUT KBD _ FILES UPDATED _ OUTPUT _ 

_ Master File _ • Master List 

_ Index to Master _ 

_ File (a separate file) _ 


ALSO SEE RELATED FiLEDEFiNmoN(S) X Data Entry Specs _ 

^ CRTFORMATiS) 

^REPORTFORMAT(S) ^ Individual Specs _ 

^ SYSTEM LOGIC FLOW(S) 

ENTER MODULE FROM S.vstem Menu _ WHEN DONE RETURN TO Svstem Menu 


PROCEDURE; 


1. At initial installation of the system the Master File and its Index 
file must each be cleared to one control record (containing record 
count * 1). The rest of the file will be padded with right bracket 
dummy records. 

2. In this Standard Master File Maintenance Module allow the following 
capabilities: 

1. ADD 

2. CHANGE/INQUIRE 

3. DELETE 

4. PRINT-OUT 

3. Put ADD, CHANGE, and DELETE modes in one program. Put the PRINT mode 
in a separate program. There will be three other programs to support 
the Main Maintenance Module: Sort, Update Counters after Sort and 
Purge Records flagged for deletion in delete mode. 

4. First initialize both the Main File and Index File in UPDATE mode. 

Read the Control (first) Record of the Main File and Store the 
organized record count in the field "BSEND" for Binary Search purposes. 

Store the maximum # of records allowed for the file in "MAXCNT" foe « 

later test on whether an addition will exceed the file's allocated , 

size. 

5. Use subroutine "MMENU" to display the title of the module at (1,1) 

display the menu and get selection of mode ("ADD", "CHANGE/INQUIRE", ' 

"DELETE", "PRINT", or "END"). 
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01-APR-78 


Program Specif Icatlora 


EXHIMTNa. 


ppniprr DIBOL-ll Pdckagts 
MODULE NAME (Your Pfograii 


SVSTBI. 


All Systems 


6. If "PRINT” Is selectedt stop to the print program (via Sort If so 
selected). 

7. If "END" stop to the main program select on menu. 

8. For ADD, CHANGE, DELETE display the full screen format (per the 
Individual specs). 

9. If CHANGE or DELETE mode Is selected, also display an asterisk 
beside the key field required to find the record. (See the screen 
layout with the Individual specs.) 

10. If ADD mode Is selected, proceed as follows: 

10a. Allow entry of the key field. 

10b. Verify the record does not already exist (do binary search 
on the Index). Reject with error message If It does. 

) 10c. Allow entry of the remaining fields per specs of specific 

program. 

lOd. When done with last field of record, use subroutine "ANYCN" 
to ask "ANY CHANGE?" and get "WHAT #?" 

lOe. When no more changes (or If none at all), write the record at the 
end of the Master file and add a record to the Index file. 
Increment the record count In the control record. Watch for 
record locks If more than one terminal using the f11e(s). 

lOf. Clear the data from the screen (but leave the tags) and clear 
the record area In core. 

lOg. Go back to 10a and allow the next record to be entered. 

lOh. Continue additions until "END" Is typed In the key field, then 
go back to the menu (see step 5 above). 

NOTE: One each addition, test that file size Is not exceeded. Compare 
the record count to the maximum # of records allowed. If exceeded, 
display error message and stop. 

11. If In CHANGE/INQUIRE mode, proceed as follows: 

11a. Allow entry of the key field. 
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DATE_ ^ Program Specifications EXHIBIT NO. . 

PROJECT _ DIBQL-11 Packages _ systfm Systems_ page 3 or_ 4 

MODULENAME (Your Program Name) _ 


lib. Find the record (using binary search on Index*) 

*MCBA's Binary Search subroutine will also do a sequential 
search on'the overflow area of the Master File automatically 
if the record can not be found in the main, ordered part of the 
file. This makes it possible to CHANGE/INQUIRE a record just 
added in ADD mode without reorganizing the file first. 

11c. If you can't find the record, display an error message. 

lid. When found, display the record's contents on the screen per the 
full screen format (see individual specs screen layout). 

lie. Use subroutine "ANYCN" to ask "ANY CHANGE?" and get "WHAT #?". 

l lf. If no more changes (or if none at all), update the record on the 
disk. 

llg. Clear the data from the screen (but leave the tags) and clear 
the record area in core. 

llh. Go back to step 11a and allow another record to be processed. 

Hi. Continue until "END" is entered in the key field. Then go back 
to the menu (step 5 above). 

12. If in DELETE mode, proceed as follows: 

12a. Proceed as in steps 11a thru lid above. 

12b. Ask "IS THIS THE RIGHT RECORD?". 

12c. If "Y" put "3J3DEL" in the designated field of the record (per 
program specs) and update the record in the disk. Zero the 
record number for this record in the Index File and update the 
record on the disk. Increment the delete count and update the 
control record. If delete count goes over 95, stop to "REORG" program. 

12d. Display on the bottom line: "RECORD DELETED - CR TO 
CONTINUE" and accept CR. 

12e. Process as in steps llg to Hi above. 

13. If in PRINT mode, proceed as follows: 

13a. Using MCBA's "STENO" subroutine, accept the starting and ending 
#'s to print (also accept "ALL" to print). 
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DATE 


01-APR-78 


PROJECT DlBOL-11 Packages 


Program Spedficatioiw 


SYSTEM 


All Systems 


EXMWTNa_ 

PAGE.!_M 4 


MODULE NAME (Youf Pfograw Name) _a snglexib ktime share 

FUNCTION standard Trx Entry Module - Allow entry of your Trx file, with editing. _ 

_• (Allow additions, changes and deletions, plus print an Edit List.)_ 


INPUT _ FILESUPOATED _ OUTPUT _ 

_KBO_ Your Trx file _ »Ed1t List 

_ Any Master file (and its __ 

_ Index) against which ___ 

fields are to be edited. _ _:_ 


ALSO SEE RELATED jtFiLEDEFiNiTioN(S) K_ Data Entry Specs _ 

ICCRT FORMATES) t i c 

REPORTFORMAT(S) ji_ Individual Specs _ 

X SYSTEM LOGIC FLOW(S) 

ENTER unni It EEROM Systcffl Mbru _ WHEN DONE RETURN TO System Menu 


PROCEDURE; 


1. (File to be built should have been cleared to one control record at 
the end of the last run.) 

2. Initialize the Trx file In update mode. Also Initialize In Input 
any Master file and Its Index file against which Trx fields are to 

be verified (such as Customer #). Read the first record of the Master 
file and store the record count in the field "BSEND" for binary search 
purposes. 

3. Use MCBA's subroutine "TMENU" to display the title of the module at 
(1,1), to display the menu and allow menu selection. The first time 
thru "ENTER (ADD) NEW TRX" (#1) will be selected. When editing Is 
being done. "CHANGE EXISTING TRX" (#2) or "DELETE EXISTING TRX" (#3) 
may also be selected. If "PRINT EDIT LIST" (#4) Is selected, chain 

to the edit list PRINT PROGRAM. If "POST TRX" (#5) Is selected, chain 
to the posting job stream (see Individual specs on the posting). 

4. Display full screen format of all fields to be entered. (See Victeo 
Terminal layout and Data Entry Specs accompanying Individual specs.) 

5. If CHANGE or DELETE mode was selected, also display asterisk beside 
key fields required to find existing record. (Also see screen layout 
with Individual specs.) 


5.5 


) 




DATE_ ' Program Specif ications exwbitno _ 

ppnigcT DIBOL-11 Packages _ sygrru All Systems _ page 4 of_ 4 

MODULENAME (Your Program Name) _ 


13b. Read the Index sequentially until the starting # is found, then 
print thru to the ending #. (For "ALL", print whole file.) 

13c. If "ALL" is printed go back to the menu (step 5 above). 

13d. Otherwise accept another starting and ending number and go 
back to step 13b. 

14. When the menu is "END"ed, if the number of unsorted records is greater 
than 50; sort the file. If the delete count is greater than 50, purge 
the records marked for deletion from the file. Do this "in place" 
without using a separate work unit. (This would be almost the re¬ 
verse of our Merge-X routine.) 

15. Stop back to the master menu (program selection) program. 


NOTE: 

Use MCBA's file protection system throughout to handle multi¬ 
terminal environment. 

NOTE: 

The "REORG" program to purge records marked for deletion will only 
purge 100 records. If more than 100 are purged at one time, the 
file may get fouled up. 


end 
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n>Tt 01 -APR-78 Program SpecifIcatloiw 

PROJECT PlBOL-11 Packages _ system_ All Systems 

unn...PMAuc (Yoi*** Prog>"a»n Name) 


EXHieiTNO._ 

PMK_i_of_4 


6 . If 1n ADD mode, proceed as follows: 

6 a. Allow entry of all fields per specs of specific program. 

6 b. Verify any Master File key numbers (such as Customer I) against 
that Master File (use Binary Search via Index) and display the 
name or description from the Master File per the screen format. 

If no match, display "RECORD NOT FOUND - CR TO RECOVER" on bottom 
line, and then go back and accept a new key number. 

6 c. Some TRX types (such as sales) may have a specific key number (such 
as Customer #9999) assigned as a catch-all number. If this number 
is entered, instead of searching the Master file, simply allow 
the Name or Description to be typed in manually (in same place 
where Name or Description would normally be displayed). 

6 d. Some fields in Trx may be designated as "default" fields, which 
means that if the operator Carriage Returns by the fields (with¬ 
out entering any data), the last value entered in that field 
should be used for this Trx and it should also be displayed where 
the field would otherwise be entered. 

6 e. When done with the last field of the Trx, use MCBA's subroutine 
"ANYCN" to ask "ANY CHANGE?" and get "WHAT #?" if there is. 

6 f. When no more changes, write the record out to the Trx file. 

Increment the record count and update the control record. Watch 
for record locks if more than one terminal is using the file in 
update mode. 

6 g. Clear any fields from the Trx record which can not be default 
fields. 

6 h. Clear the data from the screen (but leave tags). 

6 i. Go back to the first field of the Trx and allow the next Trx to 
be entered. 

6 j. Continue building Trx until "END" is typed in the first field 
of the Trx format. Then go back to the menu (step #3 above). - 

7. If in CHANGE mode, proceed as follows: 

7a. Allow entry of key fields (fields required to find record which 
already exists on Trx file). 
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n«TF oi-APR-7e Program Specifications 

PROJECT DIBOL-11 Packages _ system_ An <;vctpm«; 

MOOULENAKE (Your Proaraiii Name)_ 


EXHIBIT NO._ 

PSflE 3 at 4 


7b. Find the Trx record on the file. Do this with a sequential search of 
the file. Take the first record you find with the key as entered. 

7c. If none found, display error message with CR recovery. 

7d. Display the found record's contents on the screen per the full 
format of the Trx. 

7e. Ask. "IS THIS THE RIGHT RECORD?”. 

7f. If ”Y”, proceed to ask for changes. 

7g. If ”N", continue search of file looking for another record, 
same key. 

7h. If record not found by end of file, display "RECORD NOT FOUND" 
message on bottom line, with CR recovery. 

7i. Accept any changes (use subroutine "ANYCN"). 

7J. When no more changes, update record on file. 

7k. Clear data from screen (but leave tags). 

71. Allow key field(s) of next record to be entered and proceed as 
above. 

7m. Continue until "END" is entered in the first key field. Then go 
back to the menu (step #3 above). 

8 . If in DELETE mode, proceed as follows: 

8 a. Process as in steps 7a thru 7e and 7g and 7h above. 

8 b. If "Y" (for RIGHT RECORD?), Put "ai3DEL" in the designated field 
of the Trx and update the Trx on the file. 

8 c. Display on bottom line: "RECORD MARKED FOR DELETION - CR TO 
CONTINUE" and accept CR. 

8 d. Process as in steps 7k thru 7m above. 

9. If PRINT EDIT LIST is selected, print the Edit List of the Trx file 

per the report layout. Then go back to the menu (step #3 above). 




5.7 



10. When menu Is ''END''ed fall thru to chain back to the main system 
(program selection) menu. 

NOTE: Use MCBA's file protection system throughout to handle multi- 
terminal environment. 

end 
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01-APR-78 


DATE. 


Program Specif Icatlora 

DIBOL - 11 PietaoM All Systems 


PROJECT 
MODULENAME. 

FUNCTION This Is a merge in place routine used to merge Trx Into a twain file 


EXMOTTNa_ 

PAflE 1 «i 


(Your program name) 


□ SINQLEJOe OTIMESHARE 


In order urithout u«t1ng any aHrfftfnnel wnrlt 


INPUT _ FILESUPOATED _ OUTPUT 

Trx File _ _ Mala Eilg_ _ 

Main File 


ALSO SEE RELATED 


C RLEOEFINITION(S) 

□ CRTFORMAT(9 

□ REPORT FORMAT(S) 

□ SYSTEM LOGIC FLOW(S) 


^ Individual Specs 

n 


ENTER MODULE FROM ScE Individual Specs _ when done return to See Individual Specs 


PROCEDURE: 


1. Sort your Trx File into same order as main file. 

2. Read thru the Trx File and count the # of Trx records to be added to 
the main file. (Be sure not to count first control record on Trx File, 
or any records marked for deletion.) 

(If # of records to be added turns out to be zero, stop) 

3. Add this to the number of existent records in the Main File to 
get the new record count for the Main File. 

4. Then, start reading records from both files backwards (start with 
the last non-blank record.) 

5. Compare the key fields and write the higher record (Main or Trx) in 
the next record of buffer. (Trx record format may need to be converted 
to Main File format before writing. 

6 . Working backwards, read, compare and write records in the buffer. When 
buffer fills, write the buffer records into the Main File and reset 
the buffer pointers. At the end a new file has been written with all 
Trx merged into place. 

7. Be sure to update the new record count of the Main File when done. 




end 
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01-APR-78 


DATE 


Program Specifications 


PROJECT DIBOL - 11 Packages 
MODULE NAME ^NITAP_ 


SYSTEM. 


AP 


FUNCTION Initialize ATT Accounts Payable Files 


EXHIBIT NO._ 

_ PAGE I of 1 
^SINGLEJOB CTIMESHARE 


INPUT KBD _ FILES UPDATED _ OUTPUT VENMAS VENIDX 

_ EXPAET NEWAP 

_ NEWGLD GLDIST 

_ APOPEN APTOGL 

PRTIAL 


ALSOSEEREUTED XfII-EDEFINITION(S) —-- 

XCRTFORMAT(S) 

C REPORTFORMAT(S) -_ 

X SYSTEM LOGIC FLOW(S) 

EiNTER MODULE FROM Single Job Monitor _ when done returnto Single Job Monitor _ 

PROCEDURE: 

INITAP 

- Display screen per VTAPl , p. 1 and accept maximum # of records to 
allow for files. 

- Display screen per VTAPl, p. 2 and if there is an interface to G/L, accept 
maximum of Expense Accounts. Make sure there is room for at least 100 
Expense Accounts. 

- For each file, write Control Record, then write the number of records 
specified. Use the right bracket character to pad all of these dummy records. 

NOTE: Create index files with the same # of records as the master file. 

Build the index file the same way, except don't write a Control Record (write 

out a Blank Record instead.) 

NOTE.: Set flags in Control Record of NEWAP, APOPEN and GLDIST files if A/P 

is to interface to G/L. 
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DATE 


01-APR-78 


Program Specifications 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULE NAME. 


SETVCH 


FUNCTION. 


Sets Starting Voucher Number 


EXHIBIT NO._ 

_ PAGE ^ of 1 
XSINGLEJOB CTIMESHARE 


INPUT _ 

KBD 


FILES UPDATED _ OUTPUT 

NEWAP 


ALSO SEE RELATED JCfILEDEFINITION(S) - 

C CRTFORMAT(S) 

G REPORT FORMAT(S) __ 

)<SYSTEM LOGIC FLOW(S) 

El ITER MODULE FROM Single Job Monitor _ when done return to Single Job Monitor 

PROCEDURE. 

SETVCH 

- Open NEWAP ( FDAP4 ) for update, 

- Ask "STARTING VOUCHER #". 

- Accept the # and put it in the control record of NEWAP in positions 
11 to 16. 
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01 -APR-78 

DATE_ 


Program Specifications 


PROJECT DIBOL - 11 Packages _ system _ AP 


X 


MODULENAME 
FUNCTION_ 


APMENU _ 

Master Menu for Program Selection 


EXHIBIT NO._ 

_ PAGE 1 of 1 
D SINGLE JOB )^TIME SHARE 


INPUT KBD 


FILESUPDATED 


OUTPUT 


ALSO SEE RELATED d FILE DEFINITION!S) -_ 

XCRTFORMAT(S) 

C REPORT FORMAT(S) ^_ 

^SYSTEM LOGIC FLOW(S) 

ENTER MODULE FROM TSD Supervisor _ WHEN DONE RETURN TO TSD Supervisor 

PROCEDURE; 

APMENU 

- Display menu per VTAP2 . 

- Accept selection and stop to appropriate program(s). 

- If "END" entered for selection, stop (return to TSD Supervisor). 
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DATE, 


01-APR-78 


Program Specifications 


PROJECT DIBOL - 11 Packages 
VENMNT 


SYSTEM. 


AP 


MODULENAME. 


FUNCTION. 


Vendor Master File Maintenance 


EXHIBIT NO._ 

_ PAGE ^ of 1 
□ SINGLEJOB XTIMESHARE 


INPUT 


FILES UPDATED 

OUTPUT 


KBD 

VENMAS 

•Vendor Print-Out 

VENIDX 


ALSO SEE RELATED X Standard Master File Maintenance Program Specs. 

XCRTFORMAT<S) 

X REPORT FORMAT(S) -_ 

X SYSTEM LOGIC FLOW(S) 

ENTER MODULE FROM _ APMENU _ WHEN DONE RETURN TO APMENU _ 

PROCEDURE: 


VENMNT 

- See file definitions FDAPl and FDAP2. 

- Write a standard master file maintenance module per VTAP3 . 

- Key field is Vendor #. 

- Use NAME = 'jaiDEL' as delete flag. 


VENPRT 


- Write print program per RPTAPl . 

- Use STENO to accept start/end Vendor #. 

- Include count of vendors on VENMAS file. 


ORGVEN 


- Purge deleted records by rewriting VENMAS and VENIDX files over 
themselves, skipping deleted records. Use buffered technique. 

SRTIDX 


- Sort the index into order by Vendor #. 


VENCNT 

- Update Control Record counters after a sort. 
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01-APR-70 


PROJECT DIBOL - 11 Packages 
VLIST 

MODULENAME 


Program Specifications 


SYSTEM. 


AP 


RiNmnN Alphabet 




EXHIBIT NO._ 

_ PAGE 1 at 1 
□ SINGLE JOB )flMESHARE 


input 


FILES UPDATED 

OUTPUT 


VENMAS 


•Alphabetical Vendor List 


VENIDX 


TVNIDX 


also SEE RELATED J<F>l-EDEFINITION(S) -_ 

G CRTFORMAT(S) 

XREPORT FORMAT(S) _ 

XSYSTEMLOGIC FLOW(S) 

EMTER MODULE FROM _ APMENU _ WHEN DONE RETURNTO _ APMENU 

PROCEDURE; 


VLIST 

- Build one index record on TVNIDX ( FDAP9) for each record on VENMAS 
( FDAPl) that is not flagged for deletion. 

- Write control record to TVNIDX. 

STVNLS 

- Sort TVINDX into order by vendor name. 

VENLST 

- Print Alphabetical Vendor List per RPTAP2. Dump contents of file. 
Print total at end. 

- Delete TVNIDX from the system 


$ 


5.14 




01-APR-78 


DATE. 


Program Specifications 


'»ROJECT. 


DIBOL - 11 Packages 
ACTMNT 


SYSTEM, 


AP 


MODULENAME. 

FUNCTION Eij^pense Account File Maintenance 


EXHIBIT NO._ 

_ PAQE ■ 1 oi 2 
□ SINQLEJOB XtIMESHARE 


INPUT _ FILESUPDATED _ OUTPUT _ 

_KBD_ _ » Account List 

EXPACT _ _ 


ALSO SEE RELATED Standard Master File Maintenance Program Specs. _ 

XCRTFORMAT<S) 

X REPORT FORMAT(S) ^ _ 

X SYSTEM LOGIC FLOW(S) 

ENTER MODULE FROM APMEN^ _ WHEN DONE RETURN TO _ APMENU _ 

PROCEDURE: 

WRITE A STANDARD MASTER FILE MAINTENANCE MODULE - EXCEPT NO INDEX TO THIS 
FILE. SEE VTAP4 AND FDAP3 . 

ACTMNT 

- The key field here is the account #. The account # is split into a 
main # — 4 digits and a subaccount # — 3 digits. The subaccount 
defaults CR to zero. 

- Do not allow entry of all blanks in the 1st six characters of descrip¬ 
tion. Use DESCR(25,30) = '000000' as delete flag. 

ACTLST 

- Dump contents of file per RPTAP3 . j 

ORGACT (Run if delete count greater than 9.) 

- To purge deleted records, re-write file over itself, skipping deleted 

records (when DESCR(25,30) = '000000'). ij 


5.15 






DATE_ ~ Program Specifications EXHIBIT NO. 

PROJECT DIBOL - 11 Packages _ system_ ^ _ page_ 

MODULE NAME ACTM NT_ 


SRTGLA 

- Sort EXPACT into order by account #. Always run when a record has been 
added so that file is kept in order. 

GLACNT 

Update counters in EXPACT Control Record after sort. 
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DATE 


01-APR-78 


Program Specifications 


PROJECT DIBOL - 11 Packages 

MODULE NAME ^EWAP_ 


SYSTEM. 


AP 


FUNCTION New Payables Entry/Editing Module 


EXHIBIT NO._ 

_ PAGE 1 at 3 
□ SINGLEJOB XTIMESHARE 


INPUT _ FILES UPDATED NEWAP _ OUTPUT _ 

_ VENMAS _ _ NEWGLD _« Accounts Payable Voucher 

_ VENIDX _ _ GLDIST _ Edit. I _ 

_ expact _ _ APOPEN _ « Accounts Payable Voucher 

_ _ Register _ 

ALSO SEE RELATED Xpile oEFiNiTioN(S) X Stdnddrd TransdctioR Maintenance Module Progrein Specs. 

XCRTFORMAT(S) 

X REPORT FORMAT(S) □_ 

X SYSTEM LOGIC FLOW(S) 

ENTER MODULE FROM _ APMENU _ WHEN DONE RETURN TO APMENU _ 

PROCEDURE: 

WRITE A STANDARD TRANSACTION ENTRY/EDITING MAINTENANCE MODULE. SEE VTAP5 . 

NEWAP 

- Build NEWAP file ( FDAP4) . 

- Verify Vendor # against Master File and display name. 

- Default fields 

1) Increment voucher # with a CR in ADD mode. 

2) Default check date to due date with a CR, if a check # was entered; 
skip check date with CR, if no check # entered. 

- G/L expense account entries; Permit up to 9 entries. Verify G/L 
account # against EXPACT ( FDAP3) and display account description on 
top line. 

- Display a running total of amount distributed. Before ending, check 
that total amount distributed is equal to invoice amount. If not, go 
to "ANY CHANGE?". 

- Use WNAME = '000000' as delete flag. 

VCHEDT/VCHREG 

- Write print program per RPTAP4 . J 

- Include total invoice amount and total amount distributed (G/L accounts) 
which must be identical. 
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DATE 


lO-MAY-79 


Program Specifications 


ppnipgr DIBOL - 11 Packages 


OOULENAME 


NEWAP 


SYSTEM_ 


EXHIBIT NO._ 

PAGE 2 Of_ 3 


"POST TRX" proceeds as follows: 

SRTNAP + VCHREG + DIVNAP + STNAP2 + SRTGLD + UPVMAS + PSTGLD + CLR.NGL + 
PSTAPO + BLDINT + SRTOUT + PSTINT + CLRNAP. 

SRTNAP 

- Sort NEWAP into order by voucher number. 


VCHREG 

- See VCHEDT above. Same format. 


DIVNAP 

- Sequentially read through NEWAP and create one NEWGLD record for each 
distribution. See FDAP4 and FDAP5. 


STNAP2 

- Sort NEWAP into order by: 

1) Vendor Number 

2) Voucher Number 

SNDSRT 

- Send SRTGLD position of NEWGLD on DEVICE.DDF and the name of the program 
to be executed after end of sorting (UPVMAS). 


SRTGLD 

- Sort NEWGLD into order by: 

1) G/L Account Number 

2) Voucher Number 

UPVMAS 

- Sequentially read through NEWAP and VENMAS, matching vendor numbers. 
Accumulate $ billed and number of vouchers (from NEWAP) per vendor number. 

- Level break on vendor number and update fields in VE?iMAS ( FDAPl) . 
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DATE 


15-MAR-79 


Program Specifications 


^ROJECT 


DIBOL - 11 Packages 


MODULE NAME ^EWAP 


SYSTEM 


AP 


EXHIBIT NO._ 

3 3 

PAGE_of 


PSTGLD 

- Post NEWGLD to GLDIST using buffered merge-X technique. See FDAP5 and 
FDAP6 . 

CLRNGL 

- Clear NEWGLD file with dummy bracket records and control record. 

PSTAPO 

- Post NEWAP to APOPEN using buffered merge-X technique. 

BLDINT 

- Check G/L Interface flag in NEWAP control record, and if set, build 
the temporary G/L Interface Distribution file. 

- If no interface, STOP to CLRNAP . 

SRTOUT 

- Sort the G/L Interface Distribution file into order by transaction type 
and date. 

NOTE: SRTOUT accesses it's INPUT and OUTPUT files automatically on 
RK0:. To change these devices, edit SRTOUT.AP and BLDINT.AP to include 
specified devices in the file specifications and procedure division, 
respectively, for OUTNEW. Then run through GSORT, compile with SORT.UT, 
and link. 

PSTINT 

- The G/L Interface Distribution file is posted to the A/P to G/L 
Interface file. 

CLRNAP 

- Clear NEWAP file with dummy bracket records and control record. 
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DATE. 


01-APR-78 


Program 8picif icatlons 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULE NAME APTBAL 


FUNCTION Print Accounts Payable Trial Balance 


EXHIBIT NO._ 

_ PAGE 1 of 1 
□ SINGLEJOB ^(TIMESHARE 


INPUT 


FILES UPDATED 

OUTPUT 


APOPEN 


_*Trial Balance 

VENMAS 

VENIDX 


ALSO SEE RELATED FILEDEFINITION(S) "_ 

G CRT FORMAT! S) 

X REPORT FORMAT(S) -_ 

^SYSTEM LOGIC FLOW(S) 

EiNTER MODULE FROM_ APMENU _ WHEN DONE RETURNTO_ APMENU 

PROCEDURE: 


APTBAL 

- See FDAPl , FDAP2 . and FDAP7 . 

- Accept aging date through CRT. Default to system date on CR. 

- Ask if detailed report is desired. If "N", use summary format. 

(See VTAP6 .) Default "YES/NO" answer to "Y". 

- Accept starting and ending vendor #'s. (Use "STENO".) 

- Print trial balance per RPTAP5 . 

- Level break on vendor # (APOPEN), verify # against VENMAS, and get 
vendor name. On a no find, set vendor name to "NOT ON MASTER FILE". 

- Use a 30-day month for aging. 

- Ignore any prepaid items (AFLAG=2). 

- If AFLAG is greater than 7 (partial payment) print "PARTIAL" under 
the invoice #. 

- If AFLAG=6, AFLAG=7 or AFLAG=-1 (unpaid partial), ignore the record. 
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01-APR-78 


DATE. 


Program Specifications 


PROJECT DIBOL - 11 Packages 

iVtODULENAME _ 

FUNCTION. 


SYSTEM. 


AP 


Print Cash Requirements Report 


EXHIBIT NO._ 

_ PAGE 1 ot 2 
C SINGLE JOB X I'lME SHARE 


INPUT _ FILES UPDATED _ OUTPUT _ 

_ APOPEN __ *Cash Requirements Report 

_ VENMAS _ _ _ 

VENIDX 


ALSOSEEREUTEO p(FILEDEFINITION<S) -_ 

;<CRTFORMAT{S) 

;<REPORTFORMAT(S) _ 

XSYSTEM LOGIC FLOW(S) 

El JTER MODULE FROM APMENU _ WHEN DONE RETURN TO APHENU 

PROCEDURE: 


CSHREQ 

- See FDAPl . FDAP2 . and FDAP7 . 

- Accept due-date cut-off and intended payment date (see VTAP7) . 

- Print cash requirements report per RPTAP6. 

- Read APOPEN file sequentially, level breaking on vendor #; search 
Vendor Master File (via index file) for vendor name. 

- For unpaid partials (AFLA6=6, 7 or -1) use payment date for invoice 
date and due date. 

- Skip any record whose duedate. is,greater than the cut-off date. 

- If the due date is greater than or equal to the payment date, report 
the discount (if any) in the discount valid column; if less, report 
in the discount lost column. For partial payments, the discount is 
to be automatically taken. 

- Report the # of days by comparing the invoice date with the payment - 
date (not system date). 

- Do NOT include in the total cash required a vendor with a credit 
balance (i.e. money/goods owed the user). 

•T 

'i 

A 
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D.TE Program Specifications 

pROigcT DIBOL - 11 Packages _ system__ 

MODULE NAME__ 


EXHIBIT NO._ 

PAGE ^ of 


- Ignore any prepaid items (AFLAG=2). 

- For unpaid partial payments, print "PARTIAL TO BE PAID" across invoice 
#, invoice date, number of days, and due date fields. 

- For paid partial payments, print "PARTIAL PAID ON XX/XX/XX" where 
XX/XX/XX is the invoice date across the invoice #, invoice date, 
number of days, and due date fields. 
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DATE 


01-APR-78 


Program Specifications 

PROJECT DIBOL - 11 Packages _ system. AP 


EXHIBIT NO.. 


y 


DUEDTE 


moduleNAME_ 

FUNCTION .Allows Changing Invoice Due Date or Discount Amount of Any Open Item 


_ PAGE 1 or 1 
□ SINGLE JOB ^TIME SHARE 


INPUT KBD _ FILES UPDATED _ OUTPUT 

APOPEN 


ALSO SEE RELATED XP"-EDEFINITI0N(S) -- 

GCRTFORMAT(S) 

"REPORT FORMAT(S) -_ 

X SYSTEM LOGIC FLOW(S) 

EMTER MODULE FROM _ APMENU _ WHEN DONE RETURN TO APMENU _ 

PROCEDURE: 

DUEDTE 

-J 

- Refer to screen layout VTAP8 , and file definition FDAP7 . 

- Accept a key vendor it & voucher #; search file, display record contents 
when found. 

- Accept new Due Date and Trew Discount Amount. Rewrite the record. 

- Accept a CR for both Due Date and new Discount Amount. In each case, 
have the CR default to the value already in the record. 

- Repeat procedure for new vendor and voucher. 

- Allow "END" in vendor # to stop. 





Ot -APR-78 

DATE _ . Program Specifications EXHIBIT NO._ 

'project DIBOL Packages _ system__ pace 1 at _3 


MODULENAME. 


FUNCTION. 


DEFER 


Payment Preparation 


□ SINGLEJOB ^TIMESHARE 




ALSO SEE RELATED 


RLEDEFINmON(S) 
tRTFORMAT(S) 
REPORT FORMAT(S) 
SYSTEM LOGIC FLOW(S) 



ENTER MODULE FROM. 


APMENU 


WHEN DONE RETURN TO. 


APMENU 


PROCEDURE: 

DEFER 

- Display the menu and accept selection per VTAP9 , p. 1. 

- If selective payment (#1) is chosen, ask if the user wishes to clear 
all the select status flags. If he does, defer everything on APOPEN 
( FDAP 7). Set AFLAG=1 if 0, 3, 4 or 5, set AFLAG=6 if it is -1 or 7, 
and set AFLAG=9 if it is 8. If he does not, continue. 

- Display the selective payment sub-menu ( VTAP9 p. 3). 

- If the edit list is chosen, STOP to PRECHK . 

- For selection and cancellation of selection, display VTAP9 p. 7. 

- For each vendor/voucher # combination entered, first scan for unpaid 
partials (AFLAG=6, 7 or -1). If an unpaid partial exists for a voucher, 
do not change the flags. If no unpaid partials exist for the voucher, 
change the flags per selection or cancellation of selection. 

- If "ALL" vouchers specified proceed as follows: 

1) Find the vendor # and back up to the first voucher for the vendor- 

2) Use this voucher in the vendor/voucher # combination and proceed as 
if the voucher # were entered. 
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01-APR-78 


DATE_ 

PROJECT_ 

MODULENAME 


DIBOL Packages 
DEFER 


Program Specifications 

_ SYSTEM__ 


EXHISTTNa_ 

PACE 2 of _3 


3) Continue for each voucher until all vouchers for the vendor have 
been exhausted. 

- If "END" is entered for the vendor #, return to the selective payment 
sub-menu. 

- If deferral payment (#2) is chosen ask the user if he wants to clear 
all the deferral status flags. Then get the due date cut-offs. If one 
already exists, display it and ask for any change. 

- Then defer everything after the due date cut-off. If the user wants 

to clear all deferral flags, undefer (i.e. select) all items before the 
due date cut-off. Do not change the deferral flags for vouchers with 
unpaid partials (AFLAG=6, 7 or -1). 

- Display the deferral payment sub-menu ( VTAP9 p. 6) and proceed as with 
selective payment. Deferral is the same as cancellation of selection 
and cancellation of deferral is the same as selection. 

PRECHK 

- Accept the intended payment date per VTAP12 . Default date CR to the 
system date. 

- Print Pre-Check-Writing Report per RPTAP8 . 

- Read file sequentially; ignore records flagged with 1, 2, or 9. Level 
break on vendor #. 

- If for any vendor, the sum of total invoice amount and discounts taken 
is less than or equal to zero, print "**N0 CHECK**" under "NET PAYABLE" 
column. 

- For paid partials (AFLAG=8) print "PARTIAL PAID ON XX/XX/XX", where 
XX/XX/XX is the invoice date, across the invoice #, invoice date and 
due date fields. 

- For unpaid partials (AFLAG=6 or 7) print "PARTIAL TO BE PAID" across- 
the invoice #, invoice date and due date fields. 


> 
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DATE. 


01 -APR-78 


Program Specifications 


project DIBQL Packages 

f MODULENAME_ 


SYSTEM. 


AP 


EXHIBIT NO._ 

PAGE_l_ol_3 
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01-APR-78 


DATE. 


Program Specifications 


PROJECT DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULENAME. 


PARTPY 


FUNCTION Partial Payments Entry/Editing Module 


EXHIBIT NO._ 

_ PAGE 1 of 2 
□ SINGLE JOB X time SHARE 


INPUT 

KBD 

FILES UPDATED 

OUTPUT 



APOPEN 

PRTIAL 

• Partial 

Payments Edit List 


VENIDX 


•Partial 

Payments Reaister 

VENMAS 


ALSO SEE RELATED FiLEOEFiNiTioN(S) X Standard Transaction Maintenance Module Program Specs. 

XCRTFORMAT(S) 

X REPORT FORMAT(S) _ 

XSYSTEM LOGIC FLOW(S) 

EHTER MODULE FROM APMENU _ WHEN DONE RETURNTO APMENU _ 

PROCEDURE: 


WRITE A MODIFIED TRANSACTION ENTRY/EDITING MAINTENANCE MODULE. SEE VTAP10 . 
PARTPY 

- Find voucher (by vendor # and voucher #) on APOPEN File ( FDAP7) . 

- Create PRTIAL ( FDAP10) with APOPEN data plus data entered. 

- Use PINVDT='000000' as delete flag. 

- Add "6. REMOVE POSTED PARTIAL" to the menu. This will STOP to 
DELPRT. (See separate Program Specifications.) 

PRTEDT 

■ —m 

- Write print program ("Partial Payments Edit List") per RPTAP7 . 

- Dump contents of PRTIAL and print totals. 

"POST TRX" proceeds as follows: 

SRTPRT + PRTRE6 + PSTPRT + CLRPRT 


SRTPRT 

- Sort PRTIAL into order by vendor # and voucher #. 
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01-APR-78 

DATE_ 


Program Specifications 


PROJECT DIBOL - 11 Packages 
PARTPY 


MODULE NAME 


SYSTEM_ 


EXHIBIT NO. 

PAGE • 2 of 


PRTREG 

- See PRTEDT above. Same format, except title is "Partial Payments 
Register". 

PSTPRT 

- Post PRTIAL records into APOPEN using merge-X technique. 

- For each PRTIAL record put into APOPEN, flag all associated (same 
vendor # and voucher #) APOPEN records for deferral (i.e. 0 , 3, 4 
and 5 become 1, and 8 becomes 9). 

CLRPRT 


- Clear PRTIAL file with dummy bracket records and control record. 




DATE 


01-APR-78 


Program Specifications 


PROJECT DIBOL - 11 Packages 


SYSTEM. 


AP 


> 

MODULENAME 
FUNCTION_ 


DELPRT _ 

Delete Partial Paymeots from A/P Open Item File 


EXHIBIT NO_ 

_ PAGE ^ at ^ 

□ SINGLEJOB X'DMESHARE 


INPUT KBD _ FILES UPDATED _ OUTPUT 

APOPEN 


ALSO SEE RELATED □ FILEDEFINITION(S) ^- 

G CRTFORMAT(S) 

□ REPORT FORMAT(S) _ 

□ SYSTEM LOGIC FLOW(S) 

El JTER MODULE FROM TSD SupervisOr _ WHEN DONE RETURN TO _ APMENU 

PROCEDURE; 


DELPRT 

- Accept vendor # and voucher # per VTAPll . 

- Find first record in APOPEN with this key. 

- Sequentially display unpaid partials with this key, asking "RIGHT 
PARTIAL?". 

- If yes, set AINVNO = 'DJIDEL' to flag as deleted. Read through:all 
the records with the same key. If there is not still a valid unpaid 
partial (AFLAG = 6 or 7 and not deleted), then undefer all records 
with the same key. {i.e. set AFLAG = 0 for I's and AFLAG = 8 for 
9's.) Otherwise leave all items deferred. 

- Accept the next key. 
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DATE 


01-APR-78 


Program Specifications 


JECT. 


DIBOL - 11 Packages 


SYSTEM. 


AP 


EXHIBIT NO.. 
1 


PAGE. 


1 

lK!bULENAME_ 

FUNaiON .Write Checks; Print Cheek Register; Clear Open Item File of Paid Items 


ALAPCK 


C SINGLE JOB ^TIME SHARE 


and Clear All Flags 


INPUT 


FILES UPDATED 

OUTPUT 


KBD 

APOPEN 

• Checks 


VENMAS 


•Check Reoister 

VENIDX 


ALSO SEE RELATED ^RLEOERNITIONIS) _ 

^CRTFORMAT(S) 

^REPORT FORMAT(S) C!_ 

J<SYSTEM LOGIC FLOW(S) 

ENTER MODULE FROM _ APMENU _ WHEN DONE RETURN TO_ 

PROCEDURE: 

ALAPCK 

- Display "MOUNT CHECK FORMS ON PRINTER": accept "DONE". 

- Print X's in one complete check form for alignment (see RPTAP9). 

- Display "PRINT ANOTHER ?" and accept "Y" or "N". 

APCHEK 

Accept check date, starting check #, and starting vendor # per VTAPIS. 
Default date CR to system date. Default vendor # to “ALL". 

- Read APOPEN sequentially; skip records flagged with a 1, 2 or 9; skip 
records having a vendor # less than the starting #. Compare the due 
date to the check date and take the discount if paid before due date. 

If a partial payment, however, just take the discount specified. 

- Accumulate vendor totals. If vendor total is less than or equal to 
zero and there are unpaid partials for the vendor, change flags as 
follows: 

, 1) Set all 6 and 7 to -1. 

^ 2) Set all 8 to 9. 

3) Set all 0, 3, 4 and 5 to 5. 
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DATE 


01-APR-78 


Program Specifications 


project DIBOL - 11 Packages 
ALAPCK. 


SYSTEM. 


AP 


EXHIBIT NO. 


PAGE. 


MODULE NAME 


If the vendor total is zero and there are no unpaid partials, set all 
0, 3, 4 and 5 to 4, and all 8 to 9. If the vendor total is less than 
zero and there are no unpaid partials, set all 0, 3, 4 and 5 to 5 
and all 8 to 9. 

- Then reread APOPEN file to print checks. 

- Read APOPEN file sequentially; skip records flagged with a 1, 2, 4, -1, 
5 or 9; skip records having a vendor # less than the starting #. 
Compare the due date to the check date. If the record is a partial 
payment, however, just take the discount specified. 

- After an item is printed on the check stub, set AFLAG = 3 if 0 and 
AFLAG = 7 if-6. Set ACHKNO to the check # and update the record. 

- Display "ARE ALL CHECKS SATISFACTORY ?" after the last check is 
printed. If "N", stop back to APMENU . If "Y", reread the file setting 
the due date field to the check date for all records with AFLAG * 3 

or 7. Set the discount amount to zero if the discount was lost. If 
AFLAG = 6 or 7 (partial) set the invoice date to the check date. 

APCKRG 

- Display "MOUNT REGULAR PAPER ON PRINTER"; accept "DONE". 

- Print the Accounts Payable Check Register per RPTAP10 and post relevant 
amounts to the A/P to G/L Interface file after first checking flag in 
APOPEN file. (See FDAP8 and FDGL10 , p. 1-2.) 

- For first half of report, use all records with AFLAG = 2. 

- Reread file, select AFLAG = 3, 7 or 8 items. Print grand total. 

- At end, the prepaid check amounts, prepaid discounts taken, regular 
check amounts and regular discounts taken are accumulated into the 
APTOGL interface file. 

CLRPDS 

- Eliminate paid items and clear deferment flags from APOPEN as follows: 
1) Use buffered technique of writing file over itself in place. 
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PROJECT 
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Program Specifications 

_ SYSTEM_ 


MODULENAME 


ALAPCK 


EXHIBTTNa_ 

PAGE 3 _3 




2) Eliminate items flagged with 2, 3 or 4. If 3 or 4, check if there 
are any records with the same vendor and voucher #. Delete them if 
so. 

(If paid partial payments have been applied against a voucher and the 
remaining balance of the voucher was paid via "Payment Preparation" 
(items flagged 3 or 4), all records with the same vendor and voucher 
number should be deleted from the APOPEN file including partial payment 
records.) 


3) If AFLAG = 7, set AFLAG to 8 and reverse the sign on discount 
amount and invoice amount. 

4) Set flags 1 and 5 to 0, and flag 9 to 8. 

5) Eliminate any records with AINVNO = ']]]DEL'. (Delete Flag set in 
DELPRT.) 


6 ) 

7) 

8 ) 


Set flags of -1 to 6. 

Update the control record, clear the due date cut-off, and write it out. 
Write bracket records to replace the deleted records. 
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01 -APR-78 


DATE 


Program Specifications 


PROJECT DIBOL - 11 Packages 
•Module name _ 


SYSTEM AP 


Pn,.rT.n» 




EXHIBIT NO._ 

_ PAGE_1_0* 1 

□ SINGLEJOB ^TIMESHARE 


INPUT _FI LES UPDATED _ OUTPUT _ 

_ VENMAS __ • Vendor Analysis Report 

VENIDX 


ALSO SEE RELATED ^ILEDEFINITION(S) _ 

CCRTFORMAT(S) 

:^REPORTFORMAT(S) □_ 

^(system logic FLOW(S) 

ENTER MODULE FROM APMENU _ WHEN DONE RETURNTO APMENU 

PROCEDURE: 

VENANL 


- See file definitions FDAPl and FDAP2 . 

- Write print program per RPTAPll . 

- Read file once through to get total amount billed and total invoices. 

- Reread file; search Master File for name; compute % and averages. 

- At end, print grand totals. 



% 

> 7 ' 

'1^'' 
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DATE 


Program Specifications 


PROJECT DIBOL * 11 PdCkSQCS 

MODULE NAME APGLCR _ 

FUNCTION _ 


SYSTEM. 


AP 


EXHIBIT NO._ 

PAGE 1 of_L 


I SINGLE JOB ^TIMESHARE 


Print G/L Distribution Cross Reference Report; Purge File Through 


Report Ending Dates 


INPUT _ 

EXPACT 


FI LES UPDATED 

GLDIST 

APTOGL 


OUTPUT _ 

»G/L Distribution _ 

Cross Reference Report 


ALSO SEE REUTED ^FILEDEFINITIONIS) 
XCRTFORMAT(S) 
XREPORTFORMAT(S) 
XSYSTEM LOGIC FLOW(S) 

APMENU 


ENTER MODULE FROM. 


WHEN DONE RETURN TO APMENU 


PROCEDURE: 


APGLCR 

- Accept report ending date. Default CR to system date. 

- Ask if detailed report is desired. (See VTAP12 .) If no, use the 
summary format. 

- Print report per RPTAP12 . 

- Read GLDIST ( FDAP6) sequentially; level break on G/L account #. 

Search EXPACT ( FDAP3 ) for account description. 

- Ignore records where Invoice Date is greater than Report Date. 

- Print all detail of record. 

- After printing, display message "PURGE FILE THROUGH REPORT DATE?" 

If "N" stop. 

- If "Y", post the relevant amounts specified on FDGL10 page 1-2 to the 
A/P to G/L Interface file FDAP8 (check the flag in the GLDIST file 
Control Record first) and then rewrite the GLDIST file over itself. 
Write only records where Invoice Date is greater than Report Date. 


5.34 


DATE 


01-APR-78 


Program Specifications 


PROJECT. 


DIBOL - 11 Packages 


SYSTEM. 


AP 


MODULE NAME. 


PURGAP 


FUNCTION. 


Purge Payables 


EXHIBIT NO._ 

_ PAGE ^ ol 2 
□ SINGLEJOB X^'MESHARE 


INPUT _ FILESUPDATED _ OUTPUT _ 

KBD APOPEN PURGAP 

_ VENMAS _ _ •A/P Open Purge Report 

VENIDX 


ALSO SEE RELATED j{fILEDEF1NITION(S) -_ 

jrfCRTFORMAT(S) 

X^^EPORTFORMATIS) □_ 

>4 SYSTEM LOGIC FLOW(S) 

ENTER MODULE FROM _ APMENU _ WHEN DONE RETURN TO _ APMENU 

PROCEDURE: 

PURGAP 

- Display screen per VTAP15 . 

- Accept the vendor #. If "END" stop to PRGPRT . 

- Otherwise, display the name from VENMAS ( FDAPl) and accept the voucher #. 

Display the first record with this vendor/voucher # and ask "RIGHT 
VOUCHER?". 

- When right voucher found, put the record # in an array and display the 
voucher #, amount and running total. Accept the next voucher #. 

- When 10 vouchers entered, or when "END" entered for the voucher #, test 
the accumulated total. 

- If it is not zero, reject the data with an error message and return to 
the beginning. 

- If the accumulated total is zero, add each APOPEN ( FDAP7) record saved " 

in the record # array to PURGAP ( FDAPl1) and flag each record in APOPEN 

for purging. ‘ 

NOTE: PURGAP is to be opened in output mode. I 

- Return to the beginning for the next vendor #. ^ 



5.35 



DATE . 


01-APR-78 


Program Specifications 


PROJECT. 




ODULENAME 


DIBOL - 11 Packages 
PURGAP 


SYSTEM. 


AP 


EXHIBIT NO.__ 

2 

PAGE___±_ ot 


PRGPRT 

- Write a print program per RPTAP13 . 

- After the report has been printed, remove all records from APOPEN that 
are flagged for purging. Sequentially read through the file and write 
it back in place, skipping the records to be removed. 

- Delete PURGAP file from the system. 



# 


5.36 


DATE. 


01-APR-78 


Program Spedf Icatlons 


PROJECT_ 

J^OOULENAME 


DIBOL - 11 Packages system. 


AP 


APOCTL 


FUNCTION Display Total Value of A/P Open File on Screen 


EXHIBIT NO_ 

_ PAGE 1 of 1 
□ SINGLEJOB )^TIMESHARE 


input 

FILES UPDATED 

OUTPUT 

APOPEN 


•Total on Screen 


ALSO SEE REUTEO )(P'*-EDEF1NITI0N(S) -_ 

G CRTFORMAT(S) 

G REPORT FORMAT(S) -_ 

^ SYSTEM LOGIC FLOW(S) 

ENTER MODULE FROM TSD Supervisor _ when done return to TSD Supervisor 

PROCEDURE: 


APOCTL 

- 

- Read through APOPEN sequentially. Skip records where AFLAG=2, 6, 7 or -1. 
Add all other invoice amounts to accumulator. 

- When done, display total value in middle of screen and stop. 


5.37 



DATE 


01-APR-78 


Program Specifications 


EXHIBIT NO.. 


PROJECT DIBOL - 11 Packages _ system_ AP _ 

MODULE NAME APYREN _ 

FUNCTION Clear Billed $ Year-tofePate and Number of Vouchers Year-to-Date from VENMAS 


_ PAGE 1 of 1 
□ SINGLE JOB X'nME SHARE 


INPUT _ FILES UPDATED _ OUTPUT 

_ _ _VENMAS _ 


ALSO SEE RELATED ^FILEDEFINITION(S) ^_ 

□ CRTFORMAT(S) 

C REPORT FORMAT(S) ^_ 

^ SYSTEM LOGIC FLOW(S) 

ENTER MODULE FROM _ TSD SuperVjSOr _ WHEN DONE RETURNTO SuperviSOr _ 

PROCEDURE; 

APYREN 

- Display "CLEAR YTD FIELDS ON VENDOR MASTER FILE." 

- Ask "ARE YOU SURE YOU WANT TO CLEAR THESE FIELDS ?" If "N", stop. ^ 

- If "Y", sequentially read through Vendor Master (FDAPl) setting BILYTD 
and NOVYTD to zero. 

- When done, stop. 


I 

i 


5.38 





FDAPl 


01-APR-78 

DATE_ 

project DIBOL - 11 Packages 


File Definition 

AP 

_ SYSTEM 


EXHIBIT NO_ 

PAGE ^ OF 


^PERMANENT 

FILENAME 

RECORD NAME 

RECORDSIZE 

LOGICAL DEVICE 

PHYSICAL DEVICE 


□ TEMPORARY 

VENMAS 

VENMAS 

115+2 





DESCRIPTION_ Vendor Msstor Fil6 


ISTHEFIRSTRECORDOFTHISFILEUSEDASACONTROLRECORD □ NO V^YES (SEE SEPARATE LAYOUT bolOW ) 


FIELD DESCRIPTION 

FIELDNAME 

TYPE/SIZE 

FORMAT 

Vendor # 

VENNO 

D4 


Name 

NAME 

A25 


Address Line 1 

ADDl 

A25 


Address Line 2 

ADD2 

A25 


City 

CITY 

A15 


State 

STATE 

A2 


Zip 

ZIP 

D5 


Total $ Billed YTD 

BILYTD 

D10 

$xx,xxx,xxx.xx- 

Total # Vouchers YTD 

NOVYTD 

D4 






■ ■■ 1 

Control Record 








Dummy Space 


A97 


# of Sorted Records in File' 

ORGCNT 

D5 


# of Records in File 

RECCNT 

D5 


Max # of Records Possible 

MAXCNT 

D5 


# of Rec. Flagged for Deletion 

DELCNT 

D3 
































































01-APR-78 


DATE. 


PROJECT DIBOL - 11 Packages 


File Definition 

AP 


SYSTEM. 


EXHIBIT NO. FDAP2 


page_L_ of_ L 


X PERMANENT 
□ TEMPORARY 


FILENAME 

VENIDX 


RECORD NAME 

VENIDX 


RECORDSIZE 

8 + 2 


LOGICAL DEVICE 


PHYSICAL DEVICE 


DESCRIPTION 


Index for Vendor Master File 


ISTHEFIRSTRECORDOFTHISFILEUSEDASACONTROLRECORD ^ 






















01-APR-78 


File Definition 


FDAP3 


lO UOIIIIIIIUII EXHIBITNO_ 

SYSTEM AP _ PAGEJ,_OF 1 



XpERMANENT 

FILENAME 

RECORD NAME 

RECORDSIZE 

□ TEMPORARY 

EXPACT 

EXPACT 

37+2 



DESCRIPTION Expense Account Description File _ 


ISTHEFIRSTRECORDOFTHISFILEUSEDASACONTROLRECORD O NO J^YES (SEE SEPARATE LAYOUT t>elOW ) 






































01-APR-78 


File Definition 

PROJECT DIBOL - 11 Packages _ system 


EXHIBIT NO. FDAP4 
PAGE 1 OF 1 


□ PERAAANENT 
^TEMPORARY 


FILENAME 

NEWAP 


RECORD NAME 

NEWAP 


RECORD SIZE 
220 + 2 


LOGICAL DEVICE 


PHYSICAL DEVICE 


.DESCRIPTION 


New Accounts Payable Transaction File 


ISTHEFIRSTRECOROOFTHISFILEUSEOASACONTROLRECORO □ NO^YES (SEE SEPARATE LAYOUT tielOVir > 


FIELD DESCRIPTION 

FIELDNAME 

TYPE/SIZE 

FORAAAT 

Voucher # 

WVCHNO 

D6 


Vendor # 

WVENNO 

D4 


Vendor Name 

WNAME 

A25 


Invoice # 

WINVNO 

A8 


Invoice Date 

WINVDT 

D6 

MMDDYY 

Invoice Amount 

WINVAM 

D8 

$XXX,XXX.XX- 

Non-Discountable Amount 

WNDISC 

D7 

$ XX,XXX.XX- 

Discount Percent 

WDPCT 

D3 

XX. X% 

Discount Amount 

WDAMT 

D6 

$ X,XXX.XX- 

Due Date 

WDUDTE 

D6 

* MMDDYY 

Check # 

WCHKNO 

D6 


Distribution Account #'s 

WDACTS 

9D7 

xxxx-xxx 

Distribution Amounts 

WDAMTS 

9D8 

$xxx,xxx.xx- 





* On Prepaids, the Check # goes in the Due Date. 

** For Prepaids only. - 





Control Record 








Dummy Space 


A34 


G/L Interface Flag 


D1 

0 - No Interface 




1 = Interface 

Dummy Space 


A167 


# of Sorted Records in File 

ORGCNT 

D5 


# of Records in File 

RECCNT 

D5 


Max # of Records Possible 

MAXCNT 

D5 


# of Rec. Flagged for Deletion 

DELCNT 

D3 











6.4 





































01-APR-78 


DATE. 


File Definition 


EXHIBIT NO. 


FDAP5 


PROJECT DIBOL - 11 Packages 


SYSTEM. 


AP 


PAGE ^ OF ^ 


> 


□ PERMANENT 

Xtemporary 


FILENAME 

NEWGLD 


RECORD NAME 

NEWGLD 


RECORDSIZE 

39+2 


LOGICAL DEVICE 


PHYSICAL DEVICE 


DEscRiPTjoN New G/L Distribution Trx File 


ISTHEFIRSTRECORDOFTHISFILEUSEDASACONTROLRECORD □ NOX^ES (SEE SEPARATE LAYOUT belOW ) 


FIELDDESCRIPTION 

FIELDNAME 

TYPE/SIZE 

FORMAT 

G/L Account # 

NGACNO 

D7 

XXXX-XXX 

Voucher # 

NGVCNO 

D6 


Vendor # 

NGVENO 

D4 


Invoice # 

NGINNO 

A8 


Invoice Date 

NGINDT 

D6 

MMDDYY 

Amount 

NGAMT 

D8 

$XXX,XXX.XX- 









Control Record 








Dummy Space 


A21 


# of Sorted Records in File 

ORGCNT 

05 


# of Records in File 

RECCNT 

D5 


Max # of Records Possible 

MAXCNT 

D5 


# of Rec. Flaqqed for Deletion 

DELCNT 

D3 







i 


6.5 


















































01-APR-78 


PROJECT. 


DIBOL - H Packages 


File Definition 

AP 


EXHIBIT NO.. 


FDAP6 


SYSTEM. 


PAGE ^ OF_l_ 


^PERMANENT 

FILENAME 

RECORDNAME 

RECORDSIZE 

□ TEMPORARY 

GLDIST 

GLDIST 

39+Z 


LOGICAL DEVICE 

PHYSICAL DEVICE 





DESCRIPTJON 


General Ledger Distribution File 


ISTHEFIRSTRECORDOFTHISFILEUSEDASACONTROLRECORD □ no ^YES (SEE separate layout below > 


FORMAT 


XXXX-XXX 


FIELDDESCRIPTION 

FIELDNAME 

TYPE/SIZE 

G/L Account # 

GACTNO 

D7 

Voucher # 

6VCHN0 

D6 

Vendor # 

GVENNO 

D4 

Invoice # 

GINVNO 

A8 

Invoice Date 

GINVDT 

D6 

Amount 

GAMT 

D8 


MMDDYY 


XXX.XXX.XX- 


Control Record 


mmv Soa 


G/L Interface Fla 


Dummy Space 


# of Sorted Records in File 


# of Records in File 


Max # of Records Possible 


# of Rec. Flagged for Deletion 


ORGCNT 


RECCNT 


MAXCNT 


DELCNT 


= No Interface 


= Interface 



























































DATE. 


01-APR-78 


PROJECT. 


DIBOL - 11 Packages 


File Definition 

AP 


EXHIBIT NO. 


SYSTEM. 


1 2 
PAGE ^ OF 


^PERMANENT 
□ TEMPORARY 


FILENAME 

APOPEN 


RECORD NAME 

APOPEN 


RECORDSIZE 

51+2 


LOGICAL DEVICE 


PHYSICAL DEVICE 


DESCRIPTION Accounts Payable Open Item File 


ISTHEFIRSTRECORDOFTHISFILEUSEDASACONTROLRECORD □ NO j|^YES (SEE SEPARATE LAYOUT ON PAGE 2 ) 


FIELD DESCRIPTION 

FIELDNAME 

TYPE/SIZE 

FORMAT 

Vendor # 

AVENNO 

D4 


Voucher # 

AVCHNO 

D6 


Invoice # 

AINVNO 

A8 


Invoice Date 

AINVDT 

D6 

MMDDYY 

Invoice Amount 

AINVAM 

D8 

$XXX,XXX.XX- 

Discount Amount 

ADkAM 

D6 

$ X.XXX.XX- 

Due Date/Check Date * 

ADUDTE 

D6 

MMDDYY 

Defer/Paid Flag 

AFLAG 

D1 


Check # 

ACHKNO 

D6 







* When paid (and for prepaids), the Check Date replaces the Due Date. 

** 0 = Regular DR/CR Voucher 

1 = Deferred DR/CR Voucher 

2 = Prepaid Voucher 

3 = Paid Voucher 
4=0 Total Vendor 

5 = CR Total Vendor 

6 = Unpaid Partial Payment 

7 = Paid Partial-Temp 

8 = Paid Partial-Permanent 

9 = Deferred Partial 

-1 = Deferred Unpaid Partial 
(0 or CR total Vendor) 


6.7 






01-APR-78 


FDAP7 


DATE_ 

PROJECT DIBOL - 11 Packages 


File Definition 

_ SYSTFM 


EXHIBIT NO._ 

PAGE ^ OF_i 


^PERMANENT 
□ TEMPORARY 


FILENAME 

APOPEN 


RECORDNAME 

RECORDSIZE 

LOGICAL DEVICE 

PHYSICAL DEVICE 

APOPEN 

51+2 




DESCRIPTION Accounts Payable Open Item File 


ISTHEFIRSTRECORDOFTHISFILEUSEDASACONTROLRECORD □ NO^YES (SEE SEPARATE LAYOUT bclOW. ) 


FIELD DESCRIPTION 

FIELDNAME 

TYPE/SIZE 

format 





Control Record 








Dumny Space 


A16 


G/L Interface Flag 


D1 

0 = No Interface 




1 = Interface 

Dummy Space 


A34 


# of Sorted Records in File 

ORGCNT 

05 


# of Records in File 

RECCNT 

D5 


Max # of Records Possible 

MAXCNT 

D5 


# of Rec. Flagged for Deletion 

DELCNT 

D3 




— 




































DATE 


8-MAR-79 


5JECT. 


DIBOL - 11 Packages 


File Definition 

AP 

SYSTEM_ 


EXHIBIT NO. 
PAGE ^ 


FDAP8 


of 


1 


B PERMANENT 

MAX. NO. RECORDS 

RECORD SIZE 

FILE NAME 

LOGICAL UNIT NO 

SEGMENTS 

MAIN SYSGEN 

O TEMPORARY 

APTOGL 

16 + 2 






REMARKS 


A/P to G/L Interface File 


CODE 

FIELD DESCRIPTION 

FIELD NAME 

TYPE/SIZE 

FORMAT 







Transaction Type 

TRXTYP 

D1 

1-5 * 


Transaction Date 

TRXDAT 

D6 



Transaction Amount 

TRXAMT 

D9 













Transaction Type 

TRXTYP 

D1 

Always = 6 * 


Expense Account 

TRXACT 

D7 



Expense Amount 

TRXAMT 

D8 













** CONTROL RECORD ** 















Purge Date 

PRGDAT 

D6 



Record Count 

INTREC 

D5 



Maximum Number of Records 

INTMAX 

D5 








* Transaction Types: 

1 = New A/P Added (B5) 

2 = Prepaid Checks (Bl) 

3 = Prepaid Discount (B2) 

4 = Regular Checks (B3) 

5 = Regular Discounts (B4) 

6 = Expense Distributions (B6) 

Summary post by date for transaction types 1-5. Summary post by 
G/L Account Number for type 6. 


6.9 











































01-APR-78 


FDAP9 


DATE. 


PROJECT DIBQL - 11 Packag es 


File Definition 


SYSTEM AP 


EXHIBIT NO. __ 

PAGE ^ OF i 


Q PERMANENT 
jj^TEMPORARY 


filename 

RECORDNAME 

RECORDSIZE 

LOGICALDEVICE 

PHYSICAL DEVICE 

TVNIDX 

TVNIDX 

29+2 




DESCRIPTION 


Temporary Index of Vendor Master File 


ISTHEFIRSTRECORDOFTHISFILEUSEDASACONTROLRECORD □ no te'vES (SEE separate layout below ) 


FIELDDESCRIPTION 

FIELDNAME 

TYPE/SIZE 

FORMAT 

' 




Vendor Name 

TIVNAM 

A25 


Record # on Master File 

TIRCNO 

D4 










Control Record 








Dunmy Space 


A16 


# of Records in File 

TREC 

B9iii 




wm 



























01-APR-78 
DATE_ 


File Definition 


SI|M. 


EXHIBITNO. FDAPn 


PROJECT DIBOL - 11 Pack 


SYI 


AP 



01-APR-7e 


File Definition 


EXHIBIT NO. 


FDAP10 


DATE. 


pRQiFCT DIBOL - 11 Packages _ system AP _ page_L-.of_ 1 



FILENAME 

RECORD NAME 

RECORDSIZE 

LOGICAL DEVICE 

PHYSICAL DEVICE 


□ PERMANENT 







XtEMPORARY 

PRTIAL 

PRTIAL 

58+2 





DESCRIPTION Partial Payment.*; File 


ISTHEFIRSTRECORDOFTHISFILEUSEDASACONTROLRECORD □ NO^YES (SEE SEPARATE LAYOUT belOW. ) 


FIELD DESCRIPTION 

FIELDNAME 

TYPE/SIZE 

FORMAT 





Vendor # 

PVENNO 

D4 


Voucher # 

PVCHNO 

D6 


Invoice # 

PINVNO 

A8 


Invoice date 

PINVDT 

D6 

MMDDYY 

Invoice amount 

PINVAM 

D8 


Invoice discount 

PDSCAM 

D6 

$ X.XXX.XX - 

Due Date 

PDUDTE 

D6 

MMDDYY 

Partial Payment Amount 

PPYAMT 

D8 

SXXX.XXX.XX 

Partial Payment Discount 

PPYDSC 

D6 






' 




Control Record 


_ \ 






Duimiv Space 




# of Sorted Records in File 

ORGCNT 



# of Records in File 

RECCNT 



Max. # of Records Possible 

MAXCNT 



# of Rec. Flagged for Deletion 

DECCNT 
















6.11 

















































01-APR-78 


File Definition 


EXHIBIT NO. FDAPTI 


DATE 


PROJECT DIBOL - 11 Packages _ system _A£__ page_1 _ of 1 



FILENAME 

RECORD NAME 

RECORDSIZE 

LOGICAL DEVICE 

PHYSICAL DEVICE 


□ PERMANENT 







)^TEMPORARY 

PURGAP 

PURGAP 

44 + 2 


RK0 



A/P Open Purged Items File 
description_L_I_ 


ISTHEPIRSTRECORDOPTHISFILEUSEOASACONTROLRECORD QNOa yes (SEE separate layout on page ) 


FIELD DESCRIPTION 

FIELDNAME 

TYPE/SIZE 

FORAAAT 





Vendor # 

PVENNO 

D4 


Voucher # 

PVCHNO 

D6 


Invoice # 

PINVNO 

A8 


Invoice date 

PINVDT 

D6 

MMDDYY 

Invoice amount 

PINVAM 

D8 

SXXX.XXX.XX - 

Invoice discount 

PSDCAM 

D6 

$ X.XXX.XX - 

Due Date 

PDUDTE 

D6 

MMDDYY 





Control Record 








Dummy Space 


A31 


# of Records in File 

RECCNT 

D5 


Dummy Space 


A8 









LA(t I U t L MU 


( UMI »r\l i. 


Page 1 of 1 

Accounts Payable Check computer preprinted 

CHECK NO. STUB NO. 




INVOICE DATE 

AMOUNT 

DISCOUNT 

NET AMOUNT 

CHECK total 











CHECK NO. 


DATE 

1 AMOUNT OF CHECK 


PAY TO THE ORDER OF 












Exhibit No VTAP1 


Date; MAY-80 Page 1 of 2 

VIDEO TERMINAL FORMAT 
Version; DIBOL-11 Disk System; A/P Release; 5 Program; INITAP 
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Exhibit No VTAF1 






Exhibit No VTAP10 


Date: MAY-80 


VIDEO TERMINAL FORMAT 


Version: OIBOL-11 Disk System: A/P 


Release: 5 


Page 2 of 2 


Program: PARTPY 


JODDBQBBflOBIBCSSI!BB0089SS3SSS3BQBOBCDBBBSOSB9BBB98BOSBBSB9I9B33SSSB3B833B3BSEOBBOOS| 

lasQDQQisinr 


aiiiiiiiiiiiiiiiiiiiliiiiiiii; 
Diiiiiiiiiiiiiiiiiiiiimiiil 
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aiiiiiiiiiiiiiiiiiiiiiiiiiiiL... 
BniiiiiiiiiiiiiiiiiiiiiiiiingSsE 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiaar 

EgiillllllllllllllllllllllllllL, 

niiiiiiiiiiiiiiiiiiiiiiiiiiiliii 

lllj|j|[ 

lagaaMsdagSifllBiaHlr 


ImiiiuSnliiHiiiiSiiiiii 


iidlBniil 
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Remarks: DISPLAY •'** PAID IF THE VOUCHER IS A PAID PARTIAL 
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Exhibit No VTAP11 


Date: MAY-80 Page 1 of 1 

VIDEO TERMINAL FORMAT 
Version: DIBOL-11 Disk System: A/P Release: 5 Program: DELPRT 
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Exhibit No VTAP12 


Date; MAY-80 Page 1 of 1 

VIDEO TERMINAL FORMAT 
Version; DIBOL-11 Disk System: A/P Release: 5 Program: PRECHK 
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Exhibit No VTAP13 


Date: MAY-80 




Page 1 of 1 

V 1 

DEO 

T E R M 1 

NAL FORMAT 


Version: DIBOL-11 Dlsk 

System: 

A/P 

Release: 3 

Program: APCHEK 


■ 


D 

D 

a 

a 


a 

Q 


E 

S 

B 

B 

B 

0 

B 

B 

S 

E 

E 

3 

B 

B 

S 

B 

s 

B 

B 

B 

s 

B 

B 

B 

B 

S 

s 

B 

B 

S 

B 

s 

s 

B 

B 

a 

0 

s 

B 

B 

s 

I 

B 

B 

! 

B 

s 

s 

9 

I 

B 

B 

s 

I 

! 

B 

I 

B 

B 

a 

Bi 

B 


B 

B 

a 

a 

B 

fl 

a 


n 


0 

] 

a 

I 


2 

a 



a 

a 


9 

a 

§ 




1 

! 

1 

1 


! 

1 


! 

1 

1 

! 

1 

! 

! 


1 



! 


i 

! 



1 

a 

1 

1 

1 

1 

1 

j 

1 

1 

1 


1 

1 

! 


j 

! 






! 


B 


1 

a 


fl 

fl 





a 












1 

1 

1 

1 

1 




1 

I 

I 

1 


I 

I 


I 

I 

I 

I 

1 

I 

I 


1 



1 


I 

I 



1 

I 

I 

1 

1 

1 

1 

1 

1 

1 

1 


I 

1 

I 


1 

I 






I 


B 



I 


fl 

a 





a 






















1 



1 



1 

1 


1 

1 

I 



1 





1 




1 

1 

1 

1 


1 

1 

1 

1 

j 

1 


1 


1 


1 









B 





B 

I 





a 






















1 



1 



1 

1 


1 

1 

1 



1 





1 




1 

1 

I 

1 


1 

1 

1 

1 

1 

1 


1 


1 


1 









B 





fl 

a 





D 






















1 



1 



1 

1 


1 

1 

1 



1 





1 




1 

a 

1 

1 


1 

1 

1 

1 

1 

1 


1 


1 


1 









fl 





fl 

I 





a 






















1 



1 



1 

1 


1 

1 

1 



1 





1 




1 

I 

1 

1 


1 

1 

j 

1 

1 

1 


1 


1 


1 









B 





fl 






a 






















1 



1 



1 

1 


1 

1 

I 



1 





1 




1 

a 

1 

I 


1 

1 

j 

1 

1 

! 


1 


1 


! 









B 





fl 






a 






















1 



1 



I 

1 

1 

1 

1 

I 



1 





1 




1 

I 

I 

1 


1 

1 

I 

1 

1 

1 


I 


1 


I 









fl 





fl 






a 






















1 



1 



1 

1 

I 

1 

1 

1 



1 





1 




1 


1 

1 


1 

1 

1 

1 

1 

1 


1 


1 


1 









B 





fl 






a 






















i 



i 



a 

d 

1 

a 

a 

1 



1 





1 




1 


1 

1 


1 

1 

1 

1 

1 

1 


1 


1 


1 









a 





a 






a 






















1 



1 



1 

1 

1 

1 

1 

1 



1 





1 




1 


1 

1 


I 

1 

1 

I 

1 

1 


1 


1 


1 









fl 





1 






a 






















1 



j 



t 

a 

d 


i 

1 



il 

a 



1 

1 




! 


2 

J 

2 

2 

2 

2 

1 

1 

1 


1 


1 


1 









fl 





1 






a 






















! 



1 



1 

1 

1 

1 

1 

1 



1 

1 



1 

1 




I 


I 

1 

1 

1 

1 

1 

1 

! 

! 


1 


! 


1 









a 





1 






a 






















I 






i] 

II 

i 

a 

II 

j 

Sj 

a 

1 


a 

i 

i 

a 




1 


1 


I 

1 

2 

1 

1 

1 

I 


1 


I 


1 









i 





fl 






□ 






















1 



1 



1 

1 

1 

1 

1 

1 

1 

I 

B 

1 

1 

1 

1 

B 


1 


B 


1 

1 

1 

i 

1 

1 

B 

1 

fl 


fl 


fl 


fl 









fl 





1 






a 






















1 



a 



3 

a 

S 

a 

a 

a 

3 


B 


1 

3 


3 

3 

a 

1 

a 



1 

i 


a 

a 

a 

a 

fl 


fl 


fl 


fl 









fl 





1 






a 






















1 



1 



1 

1 

1 

1 

1 

a 

1 

1 

1 

B 

a 

1 

1 

a 

a 

1 

a 

1 

a 

a 

a 

a 

a 

a 

a 

a 

a 


1 


a 


fl 









B 





fl 






D 






















1 



1 



1 

1 


1 

1 

I 

1 

1 

1 

B 

a 

I 

B 

1 

a 

1 

a 

I 

I 

a 

a 

1 

I 

I 

i 

a 

I 

I 


fl 


I 


fl 









1 





1 






o 






















1 



1 



1 

1 


1 

1 

1 

1 

1 

B 

1 

B 

B 

B 

B 

B 

fl 

1 

B 

1 

a 

a 

B 

B 

fl 

fl 

a 


a 


fl 


fl 


fl 









fl 





1 






a 






















1 



1 



1 

1 


1 

1 




1 

1 

B 

B 

a 

B 

a 


a 

B 

■ 

a 

1 

B 

I 

B 

a 

I 

a 

I 


a 


a 


a 









fl 





fl 






d 






















! 



1 



1 

■ 


1 

1 

i 

B 

1 

1 

I 

a 


i 

a 

I 

I 

a 

■ 

■ 

B 

I 

a 

1 

B 

a 

1 

a 

a 

1 



1 

a 

a 

a 

a 





a 


a 





a 






a 



















I 

1 


1 



! 



1 

1 


1 

1 

■ 

B 

1 

B 

1 

a 

1 

a 

1 

a 

a 

I 

a 

a 

a 

1 

a 

a 

fl 

a 

1 

a 

a 

a 

a 

I 

a 

a 

a 

a 

a 




a 


I 




a 

I 






a 



















1 

1 


I 



I 


1 

1 

1 


1 

1 

B 

B 

1 

! 

1 

1 

1 

I 

1 

a 

I 

i 

a 

'■ 

a 

1 

1 

a 

a 

1 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

i 

j 




I 


fl 




I 

fl 






a 

s 

U 

s 


a 

a 

a 

3 

1 

1 









1 

1 

1 

1 



1 


1 

1 

I 


I 

I 

1 

1 

I 

1 

1 

B 

a 

B 

1 

a 

a 

1 

a 

a 

i 

1 

B 

I 

I 

fl 

1 

a 

a 

1 

a 

1 

I 

1 

I 

B 

B 

I 




fl 


1 




1 

fl 

1 








7 ^^ 


0 










Exhibit No VTAP14 


Date: MAY-80 Page 1 of 1 

VIDEO TERMINAL FORMAT 
Version: DIBOL-11 Disk System: A/P Release: 5 Program: APGLCR 
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Remarks: DEFAULT ITEM DETAIL TO ”Y”. 
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Exhibit No VTAP15 


Date; MAY-80 Page 1 of 1 

VIDEO TERMINAL FORMAT 
Version; DIBOL-11 Disk System: A/P Release: 5 Program: PURGAP 





Date: MAY-BO 


REPORT 


Version: OIBOL-II Disk System: A/P Release: 5 




Exhibit No Kl'TAPl 


Page I of 1 

Report; VENDOR FILE PRINT-OUT 
























































































9.2 


txnibit No hPTAt"i; 



0«t«: MAY-80 REPORT FORMAT Page 1 of I 

Vorslon: DiBOL-11 Disk System: A/P Release: 5 Program: VENLST Report: ALPHABETICAL VENDOR LIST 
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9.3 







txhibit No 

hPTAP3 


Date: HAY-60 


REPORT 

FORMAT 



Page 1 of 1 

Version: OIBOL-tt Disk 

System; A/P 

Release: 5 

Program: ACTLST 

Report: 

EXPENSE 

ACCOUNT LIST 









































































































Exhibit No RPTAP''* 



Rsaarkst THE VOUCHER EDIT LIST HAS THE SAME FORMAT; ONLY THE REPORT TITLE ON LINE 3 DIFFERS. 






















































Exhibit No RP'lAEtj 


Date: MAY-80 
Varslon: OiBOL-11 Disk 


System: A/P 


REPORT 
Release: 5 


FORMAT 
Program: APTBAL 


Page 1 of 2 

Report: ACCOUNTS PAYABLE AGED TRIAL BALANCE 



Remarks I USE THIS FORMAT TO SHOW DETAIL. 


































































9.6 


txhibiL No HM'AHS 


Datei MAY-BO REPORT FORMAT Page 2 of 2 

Varsloni DIBOL-11 Disk Systen: A/P Release: 5 Program: APTBAL Report: ACCOUNTS PAYABLE AGED TRIAL 


balance SUMMARY 



































































Exhibit Ho hPlAPb 


Oates MAY-BO REPORT FORMAT Page 1 of I 

Versions OIBOL-ll Disk System: A/P Release: S Program: CSHREQ Report: CASH REQUIREMENTS REPORT 







































































Date: MAr-80 


REPORT 


Version: 0l80L-t1 Disk 


System: A/P 


Release: 5 
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Remarks: EDIT LIST HAS THE SAME FORMAT EXCEPT THAT THE WORDS ‘'EDIT 


Exhibit No HFTAfY 








































































Exhibit No hPTAhb 


ORT FORMAT 

Program: PRECHK 


iiiii ii 


II 


Pag* I of I 

Report: ACCOUNTS PAYABLE PRE-CHECK- 
NRITING REPORT 
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Exhibit No HETAEg 


Data I MAY-aO 
Varslon: OIBOL-lt Disk 


REPORT FORMAT 


System: A/P 


J!! 


i llllllli 

liS 


Release; 5 




Program; APCHEK 


Page I of I 
Report: ACCOUNTS PAYABLE CHECK 
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Ramarkst IF CHECK DATE IS AFTER OUE DATE, NO DISCOUNT IS TAKEN. 
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Date: MAY-aO 


REPORT 


Version: DIBOL-1I Disk System: A/P Release: 5 




Exhibit No hl'TAtlM 


0 R M A T 

Program; APCKRG 


Page t of t 

Report: ACCOUNTS PAYABLE CHECK REGISTER 













































System: A/P Release: 5 Program: VENANL Report: VENDOR ANALYSIS REPORT 



9.12 













































































Exhibit No RmP12 


Dat«t MAY-eO 
Verslont OIBOL-lt Disk 


aiiiiii 


REPORT FORMAT 


Systen: A/P 


Release: 5 


Program; APGLCR 
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IlSBiK! 


Page I of 2 

Report: A/P - 6/L DISTRIBUTION 
CROSS REFERENCE 
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iEiiEiiii!iiiiiiiiiiiiiiiiiiiiiiiiiiiiii 


I 






IIIIIIIIIIIIIIIIIIIHIIIIIIIIIIl 

IIIII!IIIIIIIIIIIIIIIIIIIIIIII|| 

SllliiB 


Raaarkst USE THIS FORMAT TO SHOW DETAIL ON THE REPORT, 































































Exhibit No WXk¥\2 


Date I HAY-eo 
Version: DIBOL-tl Disk 


REPORT FORMAT 


System: A/P 


“Hi! 


Re I ease: 5 


JPi 

R 

a 

i 


_jiiiiiiifiiiiiM_^_^ 

SKiiii!!! ii ini 

giimin!imi!lli 

a!ia!!8BiHimr 


Reaarks: USE THIS FORMAT FOR A SUMMARY REPORT. 


Program: APGLCR 


Pago 2 of 2 

Report: A/P - G/L DISTRIBUTION CROSS 




I s j a a TIN s.'f ir: i im: vi 


iiti 


III 


Hisitii 

iiEiiiii 


jiiL 

•I! 


iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

iiiiiiiiii|iiiiiiiiiiiiiiiiiiiii 

ii|iiiiiiiiiiiiiiiiiiiiiiiiiiiii 

iiEiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

liiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

liiiiiiiiiiiiiiiHiiiiiiiiiiiiiii 

iilliiiiiiifiiiiiiiiiiiiiiiiiiii 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

iiiiiiiiiiiiiiiiiiiHiiiiiiiiii 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

IIIIIIIIIIIIIIIIIIIHIIIIIIIIII 

liiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

i!! 

Wiii!!!!!!!!»!!:!!!! 













































































Exhibit No RETAE13 


Date: MAY-80 
Varslon: DIBOL-1t Disk 


REPORT FORMAT 


System: A/P 


Release: S 


DEE! 


Dllllllllll 

nutm — 

Dlllll_ 

sia 

aiiiiiiiiiii 


JODBDBD 

1111111 


bdoob::3[ 

IIIIBIBlI 

ipP«‘ 


mm 


aiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiliiiiiiiii 

-iiiiiii|iii||iiii||iii|ii|iii 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

aiiiiiiiiiiiiiiiiBiisiiiiiiii 


IBiiaai 


aiiiiiiiiiiiiKSiiL. 

aiiiiiiiiiisSfiiiiii 

aiiiiiiiisiiiiiiiiiii 

aiiiiiRafiiiiiiiiiii 
aiiipsiiiiiiiiiiiiii 
aiiRSiiiiiiiiiiiiiir 
aKiiiiiiiiiiiiiiir 


J IBIII 

Hill 

IBI 

liiiiiiii 
iiliii 


Program: PRGPRT 




III! 

mi 

■IIHII 
iiiiiii 


Page I of t 

Report: A/P OPEN PURGt REPORT 


, iSSiSiSSSSiSSSSlSi!! 

S iii !i!|i!iili!;ii!i!!i!iiii!' 

jiiliiiliiifiiiiiiiiiiiiBiiii, 

■liiiiiiiEiiiiimiiiimiiiiii 


I 


liiiiijliilEiiliiii 
liiiiiiiiiiiiii 


iiii| 

i! 11 


iiiiiiiiiiiiiiiiiiiiiiiiiiii 
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
iiiiiiiiiiiiiiiiiiiiiiiiiii 

iiiiiiiiiiiiiiiiiiiii 

iiiiiiiiiiiiiiiiiiiii 
IIIIIIIIIIIIIIIIIIIII 
IIIIIIIIIIIIIIIIIIIII 

_ iiimiiiiiiiiiiiiiiiiiiii 

iiiliiimimiiiiiiiiiiiiiiiiiiiiiii 

iiiiiiiiiiiiiiiiiiiiimiiiimiiiiii 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

S iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

B iiiiiiiiiiiiiiiiiiiimiiiiii 
iiiiiiiiiiEiHSimimiiiiii 
UlHIiBSSiillllllllllllllimi 

■nil Hill IIIIIII 

_^iiiiiiiEiiiiiiiiiiiiiii 

liiiiiiiiiiiiiiiiiiiiiiiiiii 
lEiiiiiiiiiiuiiiiiiiiiiiiii 
iiiiiiiiiiiimiiiiii 
.^^..^IIIIIIIIIIIIIIIIIIIII 
illilliiiiiiiiiiiiiiiiiiiii 


liUKf 
ill 

IS'" 

iiiiiiiiiiiiiiiiiiii 
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